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EDOITORDAL Ku 


| Der Leser hatte das Wort! 


Mit dieser Ausgabe hat es etwas Besonderes auf sich: Er- 


| innern Sie sich noch? Im vorigen Heft wurde eine POKE- 


Ecke gefordert. Unsere Antwort war, daß, sollten genü- 
gend POKE’s zusammenkommen, die Einrichtung einer 
POKE-Ecke möglich wäre. Nun, in diesem Heft ist es schon 
soweit! Die Reaktion der Leser war so überwältigend, daß, 
zunächst probehalber, eine Sammlung von POKEs mit 
aufgenommen wurde. Unser Dank geht an all die Leser, 
die wirklich große Mengen an Tips und POKE’s geschickt 
haben. Natürlich waren auch viele doppelte Einsendun- 
gen darunter. 

Trotzdem, vielen Dank! 


| Aber auch der übrige Inhalt kann sich, so glauben wir, 
ı durchaus sehen lassen. Der Schwerpunkt lag diesmal et- 
was mehr auf den Anwenderprogrammen. So finden Sie 


mit TEXT 80 eine Textverarbeitung, die über eine Vielfalt 
von Funktionen verfügt. Ein Programm zur Erstellung von 
Basic-Referenzen sowie ein Apfelmännchen-Generator, 


| der seine Grafiken dreidimensional(!) ausgibt, runden das 


ganze ab. 

Natürlich kommen auch die Spielefans nicht zu kurz. Da 
ist auch für jeden Geschmack etwas dabei. Aktion- und 
Denkspiele, alles vorhanden! 


So, genug geredet, viel Spaß beim Schmökern Ihrer 
COMPUTE MIT. 


ie 


Oitfried Schmidt 
(Chefredakteur) 
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Suck, 
Reproduktionen jeder Art (Potokopien, Micro- 
Druck: film, Erfassung in Datenverarbeitungsanlägen usw.) 
N | Dierichs Kawel, Frankfurter Sur, 168, bedürfen der schriftlichen Genehmigung des Ver- 
N 


en se Alle veröffentlichte Software wurde von Mit- 
eitern des Verlages oder von freien Mitarbei- 
tern erstellt. 


Aus ihrer Veröffentlichung kann nicht geschlos 
sen werden, daß die beschriebenen Lösungen und 
Bezeichmungen frei van Schutzrechten sind. 





Satz: 
Uwe Siebert, Birgit Jahn 


Anfragen nicht an den Vertrieb oder Drucke- 
rei, sondern nur an den Verlag! 
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Bez sr Rücksendung erfolgt nur Enta derKo- 

Sonderheft 6,50 DM sten, Zusendun any Bears Zur Veröffentli 
chung sollten folgendes enthalten: 

Programmierabteilung: Kopierfähige Kassette oder Diskette mit dem Pro- 


gramm (Computerbezeichnung nicht vergessen!), 


Montag + Freitag von 14 bis 16 Uhr von rucker erstellees Listing (keine 
Telefon: 05651/30013 Schreibmaschinenlistings)), evil. Bildschirmfötos 
Tr ee u —— | HIpoBaopk mit Demonstrationsbeispielen 
Autoren, Manuskripte: und ausführlicher Programmbeschreibung 

(Erklärung der programmtechnischen Besünder- 
Der Verlag nimmt Manuskripte zur Veröffentli- heiten, Spielverläufbeschreibung), Für ei 


Programmunterlägen kann keinerlei Haftung 


chung gerne entgegen. 
übernaommen werden. 


Sollte keine andere Vereinbarung gercoffen sin, 


so gehen wir davon aus, daß Ss mit einem Ha- eg pr pägn 

norar van 120,- DM pro abgedruckte Seite eitwer- Bitte Medisunterlagen anfordern: 

standen sind. Ta E 
genverwaltung: 

Bei Zusendung von Manuskripten und Software 

enreilt der Autar dem Verlag die Genehmigung Anzeigenleiter: Harmut Wendt 

zum Abdruck und Versand der veröffentlichten 

Programme auf Datenträger, Alle Einsendungen Tronic-Verlag GmbH 


Stad 38, 3440 Eschwege 
Telefon: 056 51/300 11 
Telefax: 05651/30014 


müssen frei van Rechten Deitter sein. Dies muß 
ih der Unterschrift des Eisenders bestätigt 
werden, 
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Beim C16/Plus 4 wird ja immer 
bemängelt, daß dieser Rechner 
nicht in der Lage ist, Sprites 
darzustellen. Doch ohne sie 
gibt es keine guten Spiele. 
Zwar gibt es einige Programme 
zu kaufen, Spiele meine ich, 
die über tolle Sprites verfügen, 
doch was nutzt das dem, der 
selbst solche Spiele program- 
mieren möchte? Um keine Be- 
gritisverwirrung aufkommen zu 
lassen: Sprites, das sind kleine 
Grafik-Objekte, die sich unab- 
hängig vom Bildschirminhalt 
über diesen bewegen lassen, 
Beim C64 beispielsweise, wer- 
den die Sprites durch die 
Hardware (den Computer 
selbst) erzeugt - sie lassen sich 
extrem schnell bewegen, ohne 
daß der Computer dadurch an 
Geschwindigkeit einbüßt. Beim 
C16 besteht diese Möglichkeit 
leider nicht, sondern man ist 
darauf angewiesen, kleine Gra- 
fikausschnitte mittels Software 
(ein Programm) in den 
Bildschirm zu schreiben. Ähn- 
lich der Darstellung des Zei- 
chensatzes. Das Problem be- 
steht darin, daß die Sprites sich 
Pixel für Pixel bewegen lassen 
müssen, damit es nicht ruckelt, 
wenn 2.B. ein Männchen über 
den Bildschirm läuft. Routinen, 
die dieses bewerkstelligen, be- 
nötigen meistens sehr viel Re- 
chenzeit und sind deshalb für 
schnelle Spiele nicht richtig 
einsetzbar. Genau hier setzt 
die Basic-Erweiterung SPRITE- 
BASIC an. Diese Erweiterung 
stellt 24 neue Befehle zur Ver- 
fügung, die sich alle auf die 
Programmierung, Bewegung, 
Animation und Abfrage von 
Sprites beziehen und diese 
damit fast zu einem Kinderspiel 
machen. Natürlich lassen sich 
damit nicht nur Sprites bewe- 
gen, auch die automatische 


Ci6 - SA 2/89 


Abfrage von Kollisionen wird 
durchgeführt. Somit erhält der 
Anwender alles, was er zur 
Programmierung von Aktion- 
Spielen benötigt - und das in 
Basich 

Zunächst ist es möglich, insge- 
samt acht Multicolor-Sprites 


Report HN 


eues BASIC, schnelle SPRITES! 


Feuerknopfes sein, aber auch 
sine Kollision zwischen zwei 
Sprites) ohne Zutun des Pro- 
gramms automatisch in die 
entsprechende, vom Anwender 
festlegbare Routine verzweigt. 
Nach deran Beandigurigen 
wird das Programm genau da 


SPRITE-BASIC 


V1.8 LCLLSCBAK) 7 CISCBEAK) / PLUS 4 


DENO 


"DANGEROUS BRIDBE* 


PRESS 
(EC) 1988 BY 


(GRAPHICS) darzustellen und 
zu animieren. Darüberhinaus 
lassen sich bis zu zwölf ver- 
schiedene "Ereignisse” pro- 


"Ereig- 
nisse” stellen eine Art Basic- 
Interrupt dar, d.h, es wird beim 
Auftreten eines Ereignisses 
(das kann das Drücken des 


grammieren, Diese 


FIRE 


li), ‚I 31:73 55 





fortgeführt, wo die Unterbre- 
chung (Interrupt) auftrat. Die 
Möglichkeiten, die sich allein 
daraus ergeben, sind vielfältig 





und nicht nur auf Spiele an- 
wendbar, Man sieht daran, daß 
sich der Autor, sein Name ist 
Thomas Höllt, wirklich Mühe 
gegeben hat, ein Sprite- und 


Programmsystern zu verwirkli- 
chen, das kaum noch Wünsche 
offen täßt. 

Sämtliche Sprite-Befehle und 
Routinen arbeiten im System- 
Interrupt und sind daher unab- 
hängig von der Laufgeschwin- 
digkeit eines Basic-Pro- 
gramms. Dadurch wird das Ba- 
sic zwar stark verlangsamt, 
was aber durch die Ereignis- 
Routinen wieder ausgeglichen 
wird. Um einen Sprite zu be- 
wegen, ist es nicht notwendig, 
dies in einer Schleife zu pro- 
grammieren, in der pro Durch- 
lauf der Sprite um einen (oder 
mehrere) Punkt{e) weiterge- 
rückt wird. Die Routinen erle- 
digen dies automatisch. Der 
Befehl, der dies ermöglicht, 
trägt den Namen SPRITE. Als 
Parameter wird, neben diver- 
sen Angaben, der Startpunkt, 
der Endpunkt, die Geschwin- 
digkeit sowie die Richtung an- 
gegeben. Danach bewegt sich 
der Sprite wie von Geisterhand. 
Die Spritebewegung kann aber 
auch mit der Joystickabfrage 
gekoppelt werden, wobei es 
zusätzlich noch möglich ist, nur 
bestimmte Richtungen zuzu- 
lassen. Auf diese Weise läßt 
sich eine joystickabhängige 
Bewegung in einer Geschwin- 
digkeit erzielen, die sonst mit 
einem Basic-Programm gar 
nicht möglich wäre. 

In einer Hinsicht ist dieses Spri- 
tesystem dem 064 sogar über- 
legen: Die Sprites können näm- 
lich eine fast beliebige Gräße 
haben! Minimal sind es 2*4, 
maximal28*50 Punkte, die ein 
Sprite groß sein darf. Je nach 
Größe ändert sich natürlich die 
Geschwindigkeit; kleine Sprites 
lassen sich schneller bewegen 
als große. Wie bereits weiter 
oben gesagt, können bis zu 
acht Sprites gleichzeitig be- 
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wegt und verwaltet werden, für 
Animationssequenzen benötigt 
man aber noch weitere Sprites, 
auf die umgeschaltet werden 
kann. Je nach Größe können 
bis zu dreißig Objekte im Pro- 
gramm aufgenommen werden, 
zu sehen sind aber immer nur 
maximal acht. Sogar zur Ani- 
mierung steht ein Automatikbe- 
fehl zur Verfügung; einmal an- 
geben, aus welchen Einzelspri- 
tes eine Animation zusammen- 
gesetzt werden soll, läuft dann 
alles wie von salbst. Durch die 
verwendete Technik, bei der 
ein Sprite immer aus vier 
"Zeichnungen” besteht, kann 
bei Objekten, die sich horizon- 
tal bewegen, ohne Aufwand 
eine Animation erzielt werden, 
indem die einzelnen Phasen, 
es dürfen dann nur vier sein, 
gleich beim Erstellen des Spri- 
tes gezeichnet werden. Dies ist 
günstig, da auf diese Weise 


keine Rechenzeit für die Ani- 
mation benötigt wird, weil diese 
vier Bilder sowieso nacheinan- 
der diargestellt werden. 

Eine Eigenschaft, die Sprites 
unbedingt besitzen müssen, 
ist, daß der Hintergrund nicht 
zerstört werden darf. Diese 
Bedingung wird von Sprite- 
Basic elegant gelöst. Nur eines 
ist schwierig dabei: Schon 
beim Planen des Spiels ist es 
erforderlich, die Farben genau 
festzulegen. Das Löschen und 
Wiederherstellen von Sprite 
und Hintergrund geschieht 
durch Punkte in der Hinter- 
grundfarbe, die in einer schma- 
lan Zone um den Sprite herum 
angeordnet sind. Wählt man 
hier falsche Farben, dann zieht 
der Sprite eine Spur hinter sich 
her. 

Zum Lieferumfang gehört auch 
ein Editor für die Sprites. Die- 
ses Programm ist zwar gut, 
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aber leider auch sehr langsam. 
Außerdem fehlt eine Füll- 
Option für größere Flächen. 
Wenn alle Sprites erstellt wur- 
den, so gibt es zwei Möglich- 
keiten, sie abzuspeichern und 
zu verwerten: Zunächst kann 
auf der Diskette (oder Kassette) 
ein Datenfile angelegt werden, 
welches dann später vom Pro- 
gramm geladen werden muß, 
Die zweite Möglichkeit ist ein- 
facher: Der Editor ist in der 
Lage, ein Vorprogramm zu er- 
stellen. Dieses Programm kann 
später geladen und gestartet 
werden, es löscht sich 
anschließend selbst. Nun kann 
das Hauptprogramm geladen 
werden, die Sprites sind schon 
vom Vorprogramm initialisiert. 
Übrigens, ein kleiner Trick am 
Rande: Manchmal läßtsich das 
Sprite-Basic nicht richtig laden, 
das liegt dann meist daran, daß 
der Speicher nicht leer war. 


Geben Sie in diesem Fall ein- 
fach folgendes ein: 


MONITOR (RETURN) 

F 1000 FD00 00 (RETURN) 
X (RETURN) 

Dann gibt es keine Probleme 
mehr, 

Zum Programmlauf werden 
64K-RAM benötigt. Erhältlich 
ist SPRITE-BASIC auf Diskette 
und Kassette zum Preis von 39 
DM bei: 

Thomas Höllt 
Rosenbrunnenstr, 15 

6940 Weinheim 

Tel. 06201/12808 


Sprite-Basic ist ein Pro 
grammsystem, das weit über 
irgendwelche Spielereien hin- 
ausgeht. Die Möglichkeiten, die 
es bietet, sind verblüffend. 
Empfehlenswert! 


Ottfried Schmidt 





1. Vorbemerkung 

Nicht, daß ich mit der 1551 un- 
zufrieden wäre. Ganz im Ge- 
genteil. Seit über zwei Jahren 
macht sie nun bei mir ihren 
Job. Zuverlässig und schnell. 
Doch beim Umkopieren oder 
Entwickeln von Programmen 
hatte ich im wahrsten Sinne 
des Wortes alle Hände voll zu 
tun: Nach spätestens fünf Mi- 
nuten saß ich da mit minde- 
stens drei Disketten in den 
Händen und der Tendenz, die 
Übersicht und die Nerven zu 
verlieren. Welches File befin- 
det sich auf welcher Disketten- 
seite von welcher Disketta? Wo 
hat sich die Hülle für die dritte 
Diskette versteckt? Habe ich 
das File von Diskette P5, Seite 
2 schon auf Diskette Z1, Seite 
2 übertragen? Bei einem Be- 
kannten von mir hat die 
Funktionstaste F3 des Compu- 
ters bereits einen Wackelk 
kontakt. 


Als die Floppy 1581 Mitte vori- 
gen Jahres im Handel er- 
schien, kostete sie, wenn ich 
mich recht erinnere, DM 599,-. 
Mir gefiel sie auf Anhieb, und 
die technischen Daten leuchte- 
tern mir unmittelbar ein. Aber 
für diesen Preis war sie für 
mich nicht erschwinglich, und 
ich dachte mir: Du mußt noch 
warten. Also wartete ich. Das 
taten vermutlich alle C64-, 
C128- und Pius/4-Benutzer. 
Nach ca. einem halben Jahr 
war sie bei VOBIS bei DM 
399,- angelangt. Als sie dann 
geraume Zeit bei DM 298,- 
stand (bei VOBIS und Porst), 
war mir klar: günstiger wird sie 
erst mal nicht. Und nun arbei- 
tet sie als Unit 9 neben der 
1551. 

2. Gemeinsamkeiten und 
Unterschiede 

Die 1581 arbeitet mit den glei- 
chen Befehlen wie die anderen 


Modelle 1541 bis 1571. Von 
daher muß man sich also nicht 
umstellen. Außer vielleicht 
beim Überschreiben eines Fi- 
les, wenn die 1581 eine andere 
Gerätenummer als 8 hat. 


DSAVE" @filename” 

aber: 

SAVE” @:filename”, Gerätenr. 
Wie die 1551 wird die 1581 als 
einseitiges Laufwerk ange- 
sprochen, also immer als DO 
(Drive O). 

Physikalisch gesehen, ist sie 
jedoch ein zweiseitiges Lauf- 
werk, also mit zwei Schreib- 
und Leseköpfen. 

Damit sind wir schon bei den 
Unterschieden. Nach dem 
Formatieren einer 3.5” Diskette 
stehen einem über 809 KBytes 
Speicherplatz zur Verfügung, 
das sind 9160 Blocks - und das 
wiederum ist das über Vierdrei- 
viertelfache einer 5.25” 
Diskettenseite. 


Zu den gewohnten Filetypen 
DEL, SEQ, PRG, USR und 
REL kommt ein weiterer hinzu: 
CBM. Wieso man bei Commo- 
dore dafür die Firmenkurzbe- 
zeichnung gewählt hat, weiß 
ich nicht, aber ich weiß, daß 
das eine tolle Sache ist. CBM 
kennzeichnet sogenannte 
"Partition Areas”. Das sind ab- 
geteilte Bereiche auf der Dis- 
kette, die extra verwaltet wer- 
den. Etwas Vergleichbares gibt 
es bei den Personal Compu- 
tern unter MS-DOS. Dort wer- 
den die Files auf einer Diskette 
oder Festplatte allgemein als 
Dateien bezeichnet. Man kann 
z.B. unter dem Dateinamen 
WORDSTAR sowohl dieses 
selber als auch die Beschrei- 
bung dazu (Tutorial ect.) die 
Drucker- und Tastaturtreiber, 
Zeichensätze und natürlich die 
Textfiles anlegen. Im Hauptver- 
zeichnis (Directory) steht nur 
WORDSTAR DIR. Gibt man 
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Gibt man dann einen Pfadein, 
gelangt man ins Uhnterver- 
zeichnis, z. B. mit: G)/WORD 
STAR/TEXTE 


Schaut man nun ins Unterver- 
zeichnis (Subdirectory), SO 
werden alle Texte, die man mit 
Wordstar geschrieben hat, 
aufgezeigt. Alles andere auf 
der Diskette nicht. 


Das können wir mit der 1581 
auch! Leider geht es da nicht 
so einfach und komfortabel wie 
unter MS-DOS, da unserem 
Betriebssystem die Befehla 
MKDIR bzw. MD, PATH und 
CD fehlen und unser DOS die 
Unterverzeichnisse richt so 
flexibel verwaltet wie MS-DOS. 


Ich denke, die ganze Ge- 
schichte wird an praktischen 
Beispielen anschaulich. Diese 
fehlen im Handbuch leider. 


Um einen Bereich einzurich- 
ten, müssen folgende Bedin- 
gungen erfüllt sein: 


a) Der Bereich muß einen Um- 
fang von mindestens 120 Biö- 
cke haben. 

b) Der Anfangssektor muß O 
sein, 

c) Der Endsektor muß ein Viel- 
faches von 40 sein. 

d) Der Bereich darf Spur 40 
nicht überschreiben. Da stehen 
nämlich Header, BAM und 
Hauptverzeichnis (Directory) 
drin, 


Um all das muß man sich unter 
MS-DOS nicht kümmern. Aber 
wir. müssen. 


Also: 

Wir wollen als Beispiel auf der 
Diskette vier gleich große Be- 
reiche anlegan. 


Diskette formatieren mit 
HEADER”diskname” ‚Idn + UF 


Für die folgenden Schritte habe 
ich mir kleine Programme 
geschrieben: 
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30 REN BEREICH EINRICHTEN 
20 GPEINJ5,9,19 : 
30 PRIFT#15,"10” 


REPORT A 


REK OPEP19,8,1% FALLS UFIT & 


30 IBPUT"BAHKR DER ABTEILUNG“ ; HARES 


59 IZPUTERSTE SPUR (1 - 39. ODER 41 - BOB 

60 ISPUT"ERSTER SEKTOR (0 - I9)r:62 

70 IEPVT'ABZAHL DER BLÜCEB- (3m 120)"; ANZAHL 

80 HIGHBYTE=IBT(ANZAHL/2S6> + LOWBYTE=ANZAHL-HIGHBYTEx2SE 

99 PRINTELS,"/01 "HIAMES "U +CHRS (ELI+CHRS (623+CHRS (LOWBYTEI+CHER 


AHIGHBTTE) HM, On 

100 INPUT#1S, FH, FHA,PI,FZ 
110 FEIBT: PRIBTFN:PRS; Pl; F2 
120 CLOSEIS 

130 EsD 


Die Eingaben sind: 

ein Name für den Bereich, 

1 für die erste Spur, 

0 für den ersten Sektor, 

640 für die Anzahl der Blocks. 


Diesen Vorgang wiederholt 
man noch dreimal, wobei je- 
weils ein anderer Name und für 
dis erste Spur 21, 41 und 61 
eingegeben werden muß. 


Nun haben wir vier Bereiche 
auf der Diskette. Um diese nut- 
zen zu können, müssen wir sie 
erstformatieren. Das klingt zu- 
nächst einmal etwas merkwür- 
dig, eine Diskette teilweise zu 
formatieren, aber wir brauchen 
ja ein Verzeichnis (Subdirec- 
tory), um Files eintragen zu 
können. Zum Formatieren 
müssen wir in einen Bereich 
hinein, Da es keinen BASIC- 
Befehl hierfür gibt, nehmen wir 
ein Progrämmchen: 


0 PRISTWIS,T/OHHAKEI 


60 CLOSEIS 
oO END 





Formatiert wird nun wie ge- 
wöhnlich mit dem HEADER- 
Beiehl. Danach haben wir 600 
Blocks frei. 40 Blocks werden 
für das Unterverzeichnis benö- 
tigt, welches auf der ersten 
Spur des Bereichs liegt und 
das gleiche Format wie das 
Hauptverzeichnis auf Spur 40 
hat. 

Nun werden noch die drei an- 
deren Bereiche mit verschie- 
denen Namen formatiert. 


Zum Verlassen eings Berei- 
ches haben wir natürlich auch 
das passende Progrämmchen: 





10 REM BEREICH VERLASSEN 
20 OPE#15,9,15 
50 PRINT#15,* 


40 CLOSEI1S5 
50 END 





Wenn man eine Diskette wech- 
seit, wird ein Bereich automa- 
tisch verlassen. 


Man kann einen Bereich natür- 
lich auch wieder freigeben. Das 
geschieht, indem man ihn im 


Hauptverzeichnis mit 
SCRATCH löscht. Aber 
Vorsicht: 


Sämtliche Files im Bereich sind 
dann verloren! 


3. Vergleich der Geschwindig- 
keiten 


Die 1581 hat eine fabelhafte 
Einrichtung, die ich mir für die 
1551 auch gewünscht hätte: 
Einen soganannten "Track Ca- 
che Buffer”. Das heißt, es wird 
immer eine ganze Spur in das 
Floppy-RAM gelesen. Und das 
hat enorme Auswirkungen auf 


die Geschwindigkeit der inter- 
nen Verwaltung von Daten. In 
der Praxis äußert sich das 
beispielsweise darin, daß das 
Directory aus dem RAM geholt 
wird, nachdem es dort einmal 
drin ist. Es vergeht also dann 
keine Zeit, bis der Motor an- 
läuft, der Kopf arı der Direc- 
tory-Spur positioniert und das 
Verzeichnis eingelesen ist. 
Was wiederum zur Folge hat, 
daß ein SCRATCH oder RE- 
NAME augenblicklich ausge- 
führt oder eine FILE EXISTS- 
Meldung im Nu ausgegeben 
wird. Nur beim Laden ist die 
1581 tangsamer als die 1551. 
Im folgenden nun einige Zeiten 
im Vergleich, Verwendet habe 
ich dazu eine 5.25" Diskette, 
wie sie wohl ganz dem Durch- 
schnitt entspricht. Belegt mit 22 
Files unterschiedlicher Länge, 
zusammen 660 Blocks. Diese 
habe ich auf eine 3.5” Diskette 
kopiert. Zum Test habe ich je- 
weils das dritte File (47 Blocks) 
und vorletzte File (43 Blocks) 
verwendet, also vom Anfang 
und Ende der Diskette. 
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Diese Zeiten gelten für den se- 
riellen Bus des Plus/4. Am 
schnellen seriellen Bus des 
C128 solt die 1581 um den Fak- 
tor 9 schneller sein. 


4. Handbuch und Demo/Uti- 
lity-Disk 


Das Handbuch ist mehr als 
doppelt so umfangreich wie 
das der 1551 und muß für 
Maschinensprache-?rogram- 
nierer ein Eldorado sein. Was 
es Ja alles gibt: Disk-Reiated 
Kernal Subrorines Auto-Boot 
sader, Bist Traiister Proto- 
oc, ControiaJct Quaue, Vec- 
torel Jump Tabis, umnur ein 
paar art zu nennen. 


Auf der Dikette gefäuen mir vor 
allem zwei Hilfsp’ozramme: 


Ein superschneller Disk- 
Monitor mit Window-Technik, 
der mit allen Floppies zusam- 
menarbeitet, außer der - 1551. 
Und ein noch schnelleres Pro- 
gramm zur Anzeige (und Aus- 
druck) des Belegungsplans ei- 
ner Diskette (BAM). Funktio- 
niert auch bei der 1551. 


Des Uni-COPY hat so seine 
vucken. Bei mir stieg es, alsich 
möine Disketten auf die 1581 
kopierte, bei vielen Versuchen 
alle paar Files lang mit un- 
glaubwürdigen Fehlermeldun- 
gen aus. Das war äußerst stra- 
paziös, Mir fiel auf, daß es im- 
mar Disketten waren, die mit 
dsm Directory-Sorter von Markt 
& vecänik bearbeitet waren. 
Tzuen: also auf einer Diskette 
z.R, sin Eintrag auf, der 50 


aussieht: 





[6] 2 El3 DEL 

dann empfehle ich abzuwägen, 
ob das Übertragen der Files 
nicht ohne UNI-COPY schnel- 
ler und zeitsparender geht. Das 
Löschen der DEL-Einträge 
nützte bei mir auch nichts. Und 
wenn in einem Bereich der 
1581-Disk kopiert wird und das 
Programm steigt aus, muß erst 
ein RESET erfolgen, sonst ko- 
piert es gar nicht mehr. 


Zu den anderen Utilities kann 
ich noch vielsagen, sie sind für 
den C64 und C128 geschrie- 
ben. Das eine oder andere läßt 
sich vieleicht auch auf den 
Plus/4 übertragen. 


Der Schmalsr 


5. Fazit 


Für mich ist die Fioppy 1581 

ein feinas Maschinchen. Kom- 

pakt, leise, schnell. Und sie 

wird, wie die anderen feinen 

Maschinen unseres Systems, 

bei VOBIS und Porst zu einem 

Freundschaftspreis angeboten, 

wie ich meine. Das Disketten- 

chaos hat nun ein Ende. Statt 

einer Diskette wechsele ich 

meistens nur noch den Bereich 

auf der Diskette. Die 1551 ist 
nun ein schneller File-Server. 

Und das Kopieren erledigen 
die beiden miteinander, ich 

schaue zu und freue mich, 

nicht mehr Disk-Jockey spielen 

zu müssen. 


Peter Hakenios 





Produktname: Micro-BASIC- 
Compiler, System: Pius 
4/C16/116, Preis: DM 29,90, 
lersteiler: Markt u. Technik, 
Haar bei München. 


Bekanntlich ist das Software- 
Angebot für Commodores 
C264-Typenreihe (Plus/4, C16, 
C116) noch nicht übermäßig 
entwickelt. Und so horcht man 
auf, wenn ein Anbieter wie 
Markt u. Technik eine Reihe 
neuer Produkte für diese Ge- 
räte auf den Markt bringt. 


Herausgegriffen und einer Be- 
wertung unterzogen werden 
soll ein Angebot, das auf den 
ersten Blick aufgrund des nie- 
drigen Preises verlockend er- 
scheinen muß: Der MICRO- 
BASIC-COMPILER. Zum Liefe- 
rumfang gehört neben der 
(nicht kopiergeschützten) Pro- 
grammdiskette eine sehr in- 
formative 11-seitige Kurzanlei- 
tung. Auf der Hardwareseite 
wird neben dem Computer 


Speicher: ab 16K aufwärts) ein 
Diskettenlaufwerk (1551/1541) 
benötigt. 


Bedienung des Compilers: Das 
zu kompilierende Programm, 
das als PRG-File auf Diskette 
vorliegen muß, wird nach dem 
Start des Compilers und der 
Angabe der Compilat-Basis- 
adresse zeilenweise aufgeru- 
fen und konvertiert. Dieser 
Vorgang wird auf dem Bild- 
schirm protokolliert und bei 
Auftreten eines Fehlers unter- 
brochen. Hier traten bei der ge- 
testeten Version allerdings 
Schwierigkeiten in der Bild- 
echirmdarsteliung auf, die letzt- 
lich dazu führten, daß nach An- 
zeige einer ersten Fehlermel- 
dung der weitere Programma- 
blauf nicht mehr am Bildschirm 
verfolgt werden konnte. Läuft 
die Compilterung ohne Fehle- 
rerkennung ab, wird zum Ab- 
schiuß Anfangs- und Enda- 
dresse des Compilats ausge- 
geben. 


Die Konzeption des Compilers: 
Anders als andere Compiler 
erzeugt der Micro-Basic- 
Compiler kein Objektfile auf 
Diskette, sondern legt das 
Compilat direkt im Speicher 
des Computers ab. Das hat zur 
Folge, daß alle Speicherberei- 
che, die vom Compiler selbst 
beansprucht werden, für das 
Compilat nicht mehr zur Verfü- 
gung stehen. Hierzu gehört zu- 
nächst einmal der Adreßraum 
von $1000-$2600, den der 
Compiler selbst belegt, aber 
auch der bei Plus/4 und C16 
Usern so beliebte (da resetfe- 
ste) Sprachsynthesizer-Bereich 
$065e-$0688, der hier zur 
Verwaltung der Variablen be- 
nötigt wird. Ein anderes Prob- 
lem wurde offensichtlich über- 
haupt nicht erkannt: Ein Plus/4 
bzw. C16 (64K)-Compilat ist nur 
dann auch im oberen RAM- 
Bereich (ab $8000) lauffähig, 
wenn Routinen zur Kommuni- 
kation mit dem, den gleichen 
Adreßraum belegenden, Be- 


triebsystem-ROM vorhanden 
sind. Diese fehlen aber völlig, 
so daß letztlich nur der Spei- 
cherbereich von $2600-$ 7fff 
zur Verfügung steht: 


Der Befehlssatz des Compilers: 


Der Micro-Basic-Compiler er- 
kennt laut Anleitung folgende 
Befehle, Funktionen und 
Operatoren: 


1. Befehle 


- let 

- print 

- if 

- for (aber keine verschachtel- 
ten Schleifen) 

- poke 

- Sys 

» goto 

- gosub 

- return 

- end 

- stop 

- rem 

- wait 
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2. Funktionen 


- peak (1) 
3. Operatoren: 


® + r + F 
» and, or 
» tehlt 


Vergleicht man diese sparta- 
nisch anmutende Liste mit dem 
zu Recht gelobten Befehissatz 
des BASIC 3,5, fälltes schwer, 
auf Anhieb sinnvolle Anwen- 
dungen für derart einge- 
schränkte Programme zu 
finden. 

So sind etwa die Bereiche 
Eingabe/Ausgabe und Grafik 
überhaupt nicht vertreten. Da 
hilft dann auch der Hinweis in 
der Anleitung, fehlende Be- 
fehle durch POKE-Sequenzen 
zu ersetzen, nicht vie} weiter, 


Die Variablenverwaltung: 


Aber nicht genug: Ein weiterer 
wichtiger Bereich, die Verarbei- 
tung von Variablen, wurde völ- 
ig unzureichend gelöst: 


1. String-Variable sind generell 
nicht zulässig. 


2. Gleitkomma-Variable wer- 
den als Integer-Variable 
verarbeitet. 


9 Der Wertebereich der 
Intager-Variablen reicht von 0 
- 65535 (negative Werte wer- 
den nicht übernommen und 
nicht berechnet). 


4. Nur der orste Buchstabe des 
Variablennamens ist signifi- 
kant, so daß insgesamt nur 26 
Variable (a-2) zur Verfügung 
stehen, . 


Leider unarwähnt bleibt in der 
Anleitung ein Umstand, der, 
bei aller notwendigen Kritik, 
positiv zu vermerken ist: Die 
Zusammenarbeit zwischen 
Compilat und BASIC-Pro- 
gramm wird dadurch erleich- 
tert, daß die Variablenwerte im 
Speicherbereich ab $0670 im 
Low/High-Format in alphabeti- 
scher Reihenfolge abgelegt 
werden. So ist deren Übergabe 
zwischen BASIC-Programm 


und Compilat mittels PEEK und 
POKE relativ problemlos 
möglich. 


Fazit: Der Micro-BASIC-Com- 
piler eignet sich somit allen- 


Westen - live! 
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falls, um eine Bibliothek kurzer 
Hilfsprogramme zusammenzu- 
stellen, deren einzeine Ele- 
mente nach Bedarf aus einem 
BASIG-Programm heraus auf- 
gerufen werden. Der prakti- 
sche Nutzen solcher Hilfspro- 
gramme dürfte allerdings auf- 
grund der (im Hinblick auf Be- 
fehlsumfang und Variablenve- 
rarbeitung) nur sehr be- 
schränkten Möglichkeiten ge- 
ring sein. Keinesfalls besteht 
die Möglichkeit, komplette 
BASIC-Programme zu compi- 
lieren und so daren Äblaufge- 
schwindigkeit zu erhöhen. So 
muß der potentielle Käufer 
letztlich selbst entscheiden, ob 
nach dern Gesagten für ihn ein 
Iohnendes Einsatzgebiet be- 
stehen bleibt. Eines aber sollte 
er im Auge behalten: Der at- 
was reißerisch gepriesene Be- 
schleunigungsfaktor 50 - 60 für 
compilierte Programme wurde 
in erster Linie durch den Ver- 
zicht auf sinnvolle Anwen- 
dungsmöglichkeiten erkauft. 


Am Rande sei bemerkt: In eine 
wünschenswerte Überarbei- 
tung des Programmes solite 
auch dis für Benutzer monoch- 
romer Monitore wenig kontra- 


streiche Farbgestaltung einbe- 
zagen werden. Nur sehr be- 
dingt empfehlenswert! 


Oluf Heinrichsen 


Positiv: günstiger Preis. 
Negativ: Stark eingeschränkte 
Verwendungsmöglichkeiten. 


Ich kann mich meinem Vorred- 
ner eigentlich nur anschließen, 
was die Verwendungsmöglich- 
keiten betrifft, aber, und das ist 
der springende Punkt, ein An- 
wendungsgebiet gibt as, das 
die Anschaffung lohnenswert 
macht: Wer z.B. keine Maschi- 
nensprachs beherrscht und 
dennoch schnelle Unterrouti- 
nen für Zwecke benötigt, die 
mit Basic-Programmen nicht zu 
bewältigen sind, dem wird mit 
diesen Compiler die Möglich- 
keit gegeben, sein Ziel doch 
noch zu erreichen. Für viele 
Routinen sind gar keine kom- 
plexen Variablen notwendig, 
Strings ebensowenig (z.B. Rou- 
tinen für die Bildschirmbear- 
beitung). Insofern ist also doch 
ein gewisser Kaufanreiz ge- 
boten. 


Ottfried Schmidt 





Zwölf Uhr mittags, drückende 
Flitze, Staub in der Luft, die 
Sonne brennt heiß vom Him- 
mel. Gangster sind in der 
Stadt, sie wollen sich am She- 
riff rächen, der sie für einige 
Jahre ins Gefängnis brachte. 
Doch der Sheriff ist ein muti- 
ger Mann und stellt sich der 
Herausforderung. 

Dies ist die Situation, die Sie 
beim Spiel SHOOTER erwar- 
tet. Wer die Rolle des Sheritfs 
übernimmt, dürfte ebenfalls 
klar sein: Sie! 

Überall in der Stadt, sie ist 
mehrere Bildschirme breit, 
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Roß und Reiter wieder vereint 


können die Gangster auftau- 
chen. Um festzustellen, wo 
sich einer dor Verbrecher be- 
findet, müssen Sie die Pfeile 
am oberen Bildschirmrand be- 
achten. Sie blinken und zeigen 
somit die Richtung an, in die 
Sie laufen müssen. Stellen Sie 
den Sheriff in Position, ziehen 
Sie die Waffe und zielen Sie 
gut! Denn Ihre Munition ist be- 
grenzt. Sie kann aber wieder 
aufgefüllt werden, indem Sie zu 
dem Pferd laufen, das sich 
ganz rechts befindet. Sie dür- 
ten aber nicht zu lange brau- 
chen, um einen der Gangster 
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zu erledigen, da sie nach kur- 
zer Zeit zurückschießen. Tref- 
fen Sie Ihren Gegner, so be- 
kommen Sie wieder zwei 
Schuß zurück, außerdem ar- 
höht sich Ihr Punktekonto. 

Die Steuerung kann wahlweise 


dressan für den Checksummer 
lauten dann 12680 und 4097. 
Die beiden Einzelteile wer- 


— rn 


Besitzer eines 16K-Rechners 
geben das Programm so ein, 
als bestünde es aus zwei Tei- 


gespeichert. 

Jetzt den Rechner kurz aus- 
schalten und in den MONITOR 
gehen. Dort die beiden Einzel- 
programme mit dem L-Befehl 
laden und mit dem Befehl für 
die 64K-Version abspeichern, 


mit dem Joystick (Port 2) oder a fertig! 

der Tastatur erfolgen. [ie | u | wog Das Spiel kann nun wie ein 
Z = links pp, on. FELD jN Basic-Programm geladen und 
X = rechts MEARRRLERLERLFFIRIEHIEN gestartet werden (mit RUN). 


; = Revolver heben 

/ = Revolver senken 

SPACE = Schießen 

Die Eingabe: Sie ist recht ein- 
fach. Wer 64K-RAM besitzt, 
legt den MC-Checker an 
Adresse 32000, tippt das Pro- 
gramm ein und speichert os mit 
S"SHOOTER” 8(,1),1001,4000 


Ru. 


were wer. 


Programmname: SHOO- 
TER 
Computertyp: 


616/116/Plus 4 





Lauftählg auf: Fioppy und 
Datasette 
Besonderheiten: Schnelles 
Spiel mit guter Grafik 


len, wobei Teil1 von$1001bis den mit den Befehlen 
%2000 reicht und Teil 2 von S"SHO1”,8(,1),1001,2000 und 





ab. $2000 bis $4000. Die Starta- S"SHO2" 8(‚1),2000,4000 ab- 
BEBETSTTET 

MC-LISTING MIT CHECKSUMMEN DVM10 >1171 38 01 16 71 01 AO 11 03 ::16 >12F1 29 01 BR 05 01 20 29 06 ::87 
>1179 82 11 01 81 11 01 BE 11 ::FA >12F9 BB 05 01 20 05 82 20 29 ;:A0 
>1001 OB 10 00 00 9E 38 37 30 ::A3 >1191 01 8B 11 01 AO 11 04 AU ::82 1301 14 20 08 01 20 1ß 01 20 ::BB 
21009 30 00 00 00 B2 30 3A 58 ::39 >1189 00 01 OD 08 01 04 07 OB ::89 >1309 08 06 20 29 ODE BR 05 01 ::97 
>1011 B2 30 3A 20 00 00 20 71 ::C9 >1191 AO 35 02 AO 38 01 OD 38 ::6B >1311 20 29 OE BB 05 0t 20 29 ::F3 
»1019 10 2F 38 01 30 38 01 20 ;:84 >1199 02 AO 38 01 13 08 01 AO ::2E >1319 02 20 19 02 20 18 01 20 ::FB 
>1021 71 15 20 38 01 20 71 OF ::60 >11A1 08 01 AO 38 01 OD 38 02 ::67 »1321 19 02 BB 05 01 20 19 02 ::1A 
>1029 2F 38 01 07 38 01 08 38 :;0D »11A9 AO 38 01 OD 38 02 AO 38 ::45 >1329 20 29 20 20 71 03 20 18 ::75 
>1031 01 30 38 01 20 71 14 20 ::20 »i1B1 01 AO 35 01 04 17 0D A0 ;:9F >1331 01 20 71 07 20 29 17 BB ::03 
21039 38 01 20 71 OF AO 38 01 ::42 »11B9 ı8 01 OD 09 03 AO 18 02 ::B6 >1339 05 01 20 29 05 20 00 09 ::78 
>1041 3F 38 02 AO 38 01 20 71 ::0C »11C1 AO 09 02 AD 18 03 AO 35 ::9€ »1341 20 293 03 BB 05 01 20 29 ::02 
>1049 08 ZE 11 01 20 71 09 2E ::E9 >11C9 02 AO 38 04 AO 08 02 AO ı:32 >1349 OE BB 05 01 20 29 0C 20 ::DR 
>1051 11 01 20 71 01 20 38 01 ::ED >11D1ı 38 07 AO 35 01 AO 11 01 ::20 >1351 00 01 BB 05 01 20 00 OD ::D8 
21059 AO 18 01 1C 18 09 AO 18 ::7A >11D9 OD 08 02 Ao 11 01 AO 09 ::90 >1359 20 29 19 20 00 03 20 29 ;:E3 
>1061 01 20 71 03 2F 38 01 AQ ::53 >i1E1 01 31 09 01 AO 11 01 0D ::69 >1361 25 FF FF 00 00 20 00 00 ;:54 
»1069 38 04 30 38 01 20 71 04 ::25 »11E9 08 03 AO 11 01 AO 00 01 ::F9 >1369 20 71 21 20 48 01 2F 48 ::58 
>1071 2C 71 01 20 71 02 AO 11 ::35 >ilFi 27 09 01 AO ıB 01 OD 09 ::DF 1371 01 30 48 01 20 48 01 20 ::18 
>1079 01 OD 11 09 AO 11 01 AO ::88 S11F9 03 AO 18 02 AO 09 01 13 :;92 »1379 71 23 20 48 01 2F 48 01 ::E2 
51081 00 01 20 38 01 AO 18 GB ;::99 >1201 09 01 AO 18 03 AO 35: 10 ::20 »1381 AU 48 02 30 48 01 20 71 ::60 
21089 AO 3D 02 AO 18 01 AO 38 ::D7 >»1209 AO 11 01 OD 08 02 AO 11 ::30 >1389 OC 20 08 OB 20 71 0C 2F ::3E 
>1091 06 AO 1B 06 AO 3D 01 AO ::DC >1211 01 AO 09 01 31 09 01 AO ::B5 »1391 48 01 AO 48 04 30 48 01 ::22 
21099 11 OB AD 00 02 AO 18 01 ::2A >1219 11 01 0D 08 03 AO 11 01 ::D3 »1399 20 71 06 AD 20 01 AO 09 ::8E 
>10Al 3F 48 01 OD 18 02 3F 48 ::34 >1221 AO 00 01 2A 09 01 AO 1B ::Di >13A1 01 20 09 01 20 71 03 20 ::6F 
»10A9 01 AO 18 01 3F 48 01 0D ::A0O >1229 06 AO 09 02 AO 18 03 iB ::41 >13A9 09 01 AO 09 01 AQ 28 01 ::BO 
»10B1 18 02 3F 48 01 AO 18 01 ::2F >»1231 71 06 13 71 01 AO 71 01 ::A1 >13B1 20 08 06 AO 28 01 20 71 ::BC 
>10B3 AO 3D 02 A0 18 GD AO 3D ::77 >»1229 1B 71 08 AO 11 04 AO 09 ::F5 >13B9 04 AD 3E 02 20 71 05 Z2F ::;83 
>10C1 01 AO 11 01 OD 18 03 AD ::2F >1241 01 31 09 01 AO 11 05 AO ::7E >13C1 48 01 AO 48 02 AO 50 02 ::28 
>10C9 11 01 OD 18 02 AO 11 01 ::BC >»1249 00 02 02 29 01 01 29 01 ::3B >13C9 AO 48 02 30 48 01 20 71 ::A9 
»10D1 OD 18 02 AG 11 01 AO 00 ::5F >1251 02 29 01 00 28 01 02 29 ::E3 >13D1 01 AQ 30 05 AO 09 07 AO ::50 
>10E1 18 02 3F 48 91 AQ 18 01 :;:5F 1261 29 01 02 29 01 00 08 01 ::8D D13E1 AO 50 02 AO 48 03 A0 3E ::84 
?10E9 3F 48 01 OD 18 02 3F 48 ::7C 31269 20 71 01 20 00 04 20 71 ::80 213E9 01 0D 38 01 AO 30 01 OD ::72 
>1101 AO 38 01 07 38 01 08 38 ::57 >1281 02 29 01 01 29 01 02 29 ::17 >1401 02 AD 09 01 3F 49 01 OD ::D6 
>1109 01 AO 38 01 07 38 D1 08 ;:cC1 >»1289 01 01 29 02 02 29 01 01 ::30 >»1409 08 02 3F 49 01 AD 28 01 ::EF 
>1111 38 01 AO 38 01 07 38 01 ::DB >1291 29 02 2B 29 OA ı1D 09 01 :1C »1411 3F 49 02 AO 28 01 AO 3E :9A 
>1119 08 38 01 AD 38 01 AO 30 ::8B >1299 20 29 01 20 00 04 20 29 ::EO »1419 OB AO 48 09 OD 38 01 AQ.,::0C 
>1129 11 01 05 18 02 AO 1} 01 ::1D >12A93 29 03 2D 29 01 2B 29 02 z+4B >1429 AO 09 01 OD 09 02 A0 09 :07 
>1131 0D 18 02 AO 11 01 AO 00 ::CO >12Bi 3E 18 02 ıD 18 01 2B 29 ::9E >1431 01 0D 09 02 AO 09 01 3F ::DB 
>1139 01 OD 09 01 AO 18 03 88 ::89 >12B9 08 20 29 01 ıD8 18 ol 30 ::9R >1439 49 01 0D 08 02 3F 49 01 ::6A 
1149 85 418 01 8C 18 01 AO 18 ;:EO >12C9 2D 29 09 20 00 DA 2C 29 ::7C >»1449 01 AO 3E 0B AO 48 09 AO ::93 
»1151 03 15 71 01 16 71 01 AO ::01 >12D1 01 20 29 03 2D 29 01 26 ::89 >»1451 30 05 AU 09 07 AQ 28 08 ::DE 
»1159 39 01 0D 38 02 AQ 38 01 ::05 »1209 29 06 ıD 19 01 3E 18 03 ::00 >1459 AO 3E 08 AO 48 09 04 07 ::1C 
»1161 AU 086 02 Aü 38 01 0D 38 ::Ei >12E1 3D 18 01 20 29 04 20 7i ::30 21461 14 16 71 01 15 71 01 16 ::D2 
>»1169 02 AO 38 01 0D 39 02 30 ::07 >12E9 01 20 18 03 20 00 05 20 ::53 >1469 71 02 15 71 01 16 71 02 ::A5 
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31471 
>1479 
>1481 
>1489 
>1491 
>1499 
J1AAl 
>1aR9 
>14B1 
21,489 
>1Ac1 
>14C9 
>1aDı 
>14D9 
Y14E1 
>14E9 
>14Fi 
>14F9 
>1501 
>1509 
>1511 
21519 
>1521 
31529 
>1531 
>1539 
»1541 
31549 
1551 
>1559 
>1561 
31569 
»1571 
31579 
>1581 
31588 
>1591 
>1599 
>15A1 
>15A3 


>15B1 


>15B9 
>15C1 
>315C9 
>15D1 
>15D93 
>15E1 
>15E9 
>15Fi 
>15F9 
>3601 
1609 
>1611 
>1619 
21621 
»1629 
31631 
>1639 
1641 
>1649 
>1651 
1659 
>1661 
»1669 
>1671 
31679 
>1681 
1689 
>1691 
>1699 
»i16Al 
316A9 
>16Bl 
>16B9 
>ı16C1 
>16C9 
>16P1 
>16D9 
>16E1 
>16E9 
>i16Fi 
>»1679 
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48 ::BE 
81. 233 
01 ::D2 
08 ::D1 
AO ::1A 
01 ::3D 
19 ::31 
3F ::C4 
01 ::C$ 
28 ::91 
Bil ::DF 
01 ::14 
48 ::AA 
AD ::78 
01 .::E6 
08 ::BB 
3F ::E7 
nr: ::2E 
09 ::4D 
af x:E? 
OL. 5389 
29 ::5B 
20 ::CB 
01 ::99 
28 ::19 
2E ::60 
04 ::FO 
28 :;B2 
AO ::AD 
DI ::Bc 
28 ::46 
19 ;:F5 
01 ::BF 
10 :;AB 
AO ::AS5 
01 2297 
89 ::6C 
00 :s15 
01 :;3D 
69 ::5D 
02 ::3€ 
02 :;:5D 
09 ::78 
20 ::FD 
04 ::1E 
71 ::AD 
1D ::1ı0 
02 ::7€C 
28 ::4P 
AO :;:83 
Olzr:+2E 
18 ::65 
20 ::CA 
03 ::65 
05 4:83 
BB ;:0B 
01 ::06 
05 ::35 
2C ::7C 
91 ::ıD 
71 ::06 
20 ::5C 
OA ::52 
71 :197 
20 ::3B 
01 3:23 
05 ::42 
20 ::DE 
11 ::AC 
00 ::B3 
20 :;:08 
09 ::29 
05 1:58 
20 ::26 
04 ::8B 
71 ::D3 
20 ::BE 
FF :39 
2F ::9F 
14 ::A9 
49 ::59 
30 ::B2 


21701 
1709 
>ı711 
»1719 
>1721 
21729 
21731 
>1739 
174} 
>1749 
>1751 
1759 
>1761 
»1769 
>1771 
>1779 
>ı1781 
>r709 


>1791° 


>1799 
>17Al 
>17A9 
>1781 
>17B9 
>17C1 
>17C9 
>17D1 
>17D9 
>17EL 
1769 
>17P1 
>17F9 
>1801 
»21809 
>1811 
21819 
>1821 
>1829 
21821 
>1839 
>184l 
>1249 
21851 
>1959 
>1861 
>1869 
>1671 
>1879 
>1881 
>1889 
>1891 
?1R99 
>18A1 
718A9 
>18B1 
>13B9 
>1BC1 
21RC9 
»18BD1 
»>18D$ 
>ı8E1 


38 


>1BE9” AD 


>18Fl 
>19F9 
>19D1 
>19209 
>191} 
21919 
>1921 
»1929 
1931 
>1939 
>1941 
>1949 
>1951 
21959 
»1961 
>1969 
>1971 
?1979 
>19891 
>1989 


02 
37 
13 
01 
2B 
A6 
01 
39 
AO 
01 
38 
AQ 
02 
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FF FF FF CO ::14 >»3FAl 55 55 55 55 55 55 55 95 ::D4 
FE FC FC 80 ::04 >3FA9 55 55 55 55 55 55 55 55 ::DE 
04 02 01 07 ::65 »3FBl 55 55 55 55 55 55 55 55 1: E4 
OF OF 07 EO ::89 »>3FB9 55 55 55 55 55 55 55 55 ::EC 
FO FO EO 07 ::29 »3Fc1 55 55 55 55 55 55 55 00 ::4C 
SF 6F 6F CO ::73 >3FC9 00 00 00 00 00 00 00.A9 ::50 
FF F7 FO 6F ::F4 »3FD1 21 85 32 A2 05 BD FO 3F ::68 
2F 3F 2F FO ;:14 >3FD9 85 31 AO 06 AS 00 91 31 ::C3 
FA FE FA IF ::C9 >3FE1 B8 10 F9 A9 76 9D 30 0C ::03 
OE OE OA 7C ::BB >3FE9 CA DO EA 20 00 3F 60 00 ::EA 
38 38 28 OE ::97 »3FFi1 89 91 99 Al A9 FF FF A9 ::B2 
00 00 00 38 ::8B >3FF9 00 8D 11 FF 60 ER 82 00 ::6B 
00 00 00 00 ::CF ENDE DES LISTINGS (OVM) 








Brain-Tower, das ist ein Spiel, 
bei dem die kleinen grauen Zel- 
len in Wallung geraten, das 
versprechen wir Ihnen! Die An- 
leitung sollten Sie sehr sorgfäl- 
tig lesen, da das Spiel nicht so 
einfach ist. Der Sinn des Spiels 
liegt darin, durch Ablegen von 
zunächst 64 Losen mit den 
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Nummern von 1-16 auf- oder 
absteigende 4er-Sequenzen zu 
bilden (z.B. 10,11,12,13 oder 
8,7,6,5). Zur Ablage dient eing 
Fläche von 4*4 Feldern, die 4 
Ebenen besitzt. Die Draufsicht 
dieser Fläche befindet sich in 
der Bildmitte und ist für die Po- 
sitionierung der Lose maß- 


Gymnastik für’s Hirn 


geblich. Wurde ein Los gezo- 
gen, besteht zunächst die 
Wahl, es zum angegebenen 
Preis zu kaufen oder es auf der 
Spielfläche zu positionieren. 
Durch das Kaufen können Sie 
Lose sichern, um sie zu einam 
günstigeren Moment zu set- 
zen. Der Preis richtet sich nach 





der Anzahl der bisher gezoge- 
nen und der gehortsten Lose. 
Sie kaufen, indem Sie mit dem 
Joystick (Port 1) das blinkende 
Dollar-Zeichen ansteuern und 
den Feuerknopf drücken. Das 
gekaufte Los wird dann auto- 
matisch in die Bank aufge- 
nommen. Die Bank besitzt drei 
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oo 


na ao A 


» 





freie Plätze, d.h, daß immer nur 
drei Loss gohortet werden 
können. Die Positionierung er- 
folgt nach Ansteuern des Dop- 
pelpfeiles (plus Feuer), wonach 
Ihnen die Spielfläche zur Ab- 
lage zur Verfügung steht. Das 
Los kann jetzt mit dem Joystick 
positioniert und mittels Feuer 
abgelegt werden. Liegt auf 
dem angewählten Platz bereits 
ein Los, so erfolgt die Ablage 
in der darübertiegenden Ebe- 
ne; maximal sind 4 Lagen mög- 
lich, wobei gleiche Nummern 
nie übereinandergelegt werden 
können. Alle 4 Spielebenen 
sind der besseren Übersicht 
wegen im oberen Bildschirm- 
drittet dargestellt. Die Grund- 
ebene ist links dunkelblau in 
Fliesenform-, die Aufbauebe- 
nen sind in hellblau in Gitter- 
form abgebildet. In der Drauf- 
sicht zeigt die Helligkeit der 
Lose an, welcher Ebene sie 


1 REM <170> 
2 REM BRAIN-TOWER nennen ()] 6 <15B> 
3 REM <146> 
4A REM PETER BERGEN 

3200 HILDESHEIM, 05121/859991 <99> 
5 REM (1747 
6 REM <1497 
10 VOL5:A=RND(-TT) :GOT01890 “65> 
20 DIML$(2,19) :DIML%t16) :DIMCO& (4) :DIMFX (5,6 
‚6) :DIMFL% (2.6.6) :DIMBA%(4) :DIMHZ% (4) <228> 
30 DIMSU%& (8) :DIMBL% (16) <158> 
40 NE=0:LA=10:H=1:POKE239,0 <159> 
50 GOSUB1780 :GOSUB1600 : 50=22 : RESTOREL510:605 
UB2490 <206> 
60 GOSUB370 :GOSUB90 ; GOSUB1730 <133> 
70 GO5UVB420 :GOSUBSID : GOSUBS29 2507 
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angehören. Sind alle vier Ebe- 
nen einer Position belegt, so 
können sie nicht mehr ange- 
steuert werden: 

Alle Sequenzen, die waage- 
recht, senkrecht oder diagonal 
auf einer Ebene oder säulen- 
förmig (über alle vier Ebenen) 
verlaufen, gelten alg Gewinn. 
Alle am Gewinn beteiligten 
Lose werden gelb markiert und 
als Zahlenwerte zu einer Ge- 
winnsumme addiert. Falls es 
Ihnen gelang, mit einem Los 
mehrere Sequenzen zu ver- 
vollständigen, wird die Ge- 
winnsumme mit der Anzahl der 
Sequenzen multipliziert. Hierzu 
kommen noch Bonuspunkte, 
die sich aus der zuletzt ge- 
wählten Ebene errechnen 
(Ebene * 10). Eine Ausnahme 
bilden Sequenzen, die säulen- 
förmig über alle vier Ebenen 
verlaufen; bei ihnen wird ledig- 
lich der Etagenbonus als Ge- 


PROGRAMME ME 


winn verrechnet. Alle am Ge- 
winn beteiligten Lose werden 
durch die darüberliegenden 
Stellen ersatzt, so daß sich 
eventuell ein anderer Aufbau 
der einzelnen Ebenen ergibt. 
Nach jeder erfolgten Positionie- 
rung steht es Ihnen frei, Lose 
der Bank zu entnehmen und zu 
setzen (mit Joystick ansteuern 
und Feuer drücken) oder eine 
neue Ziehung einzuleiten 
(Doppelpfeil anklicken). Ge- 
wonnene Nummern werden 
am unteren Bildrand durch ei» 
nen grünen Pfeil markiert 
(Ausnahme: Säulensequen- 


zen). Zum Spielbeginn stehen 
Ihnen vier Sätze 4 16 Lose zur 
Verfügung. Je heller die Num- 
mern am unteren Bildrand 
leuchten, umso häufiger wur- 
den sie bereits als LOS gezo- 
gen. Sobald alle grünen Pfeile 
leuchten, bekommen Sie einen 
neuen Satz Lose, bei denen 


BEREITETE 


C-16 LISTING + CHECKSUMMEN (OC V1.0) 


80 IFZL=0THENSO :ELSE7O 


90 COLOR1,3,5:ZL-INT(RND(1)*16) +1:POKE194,1 
100 CHAR1,9,12,L${1,2L):CHAR1,3,13,L${2,ZL) 


alle Nummern um einen Wert 
dunkler leuchten. 

Das Spiel endet, wenn alle 
Lose verbraucht sind. Stellen 
Sie fast, daß ein Weiterspielen 
nicht mehr sinnvoll (oder mög- 
lich) ist, können Sie das Spiel 
jederzeit mit der Taste "0" 
beenden, In diesem Fall wird 
jedes noch nicht gezogene Los 
mit einem Punkt gewertet. 
Die Eingabe ist recht einfach: 
Tippen Sie das Basic- 
Programm mit unserem 
Checksummer ein, und spei- 
chern Sie es unter dem Namen 
"BRAIN-TOWER” ab. 





Programmname: BRAIN- 
TOWER 
Computertyp: 


©16/116/Plus 4 


Lauffähig auf: Floppy und 
Datasette 
Besonderheiten: Schwieri- 
ges Denkspiel 





<B> 
<222> 
<126> 


110 IFL%{ZL) >3THENZR=ZL:ZL=INTERND{L) 16) +1: 


ELSE150 


120 LT=LT+1 :VOL3:SOUND1,1000,2 


<90> 
967 


130 CHAR1.3,12,L$(2,ZR) :CHAR1,3,19,L$11,2L}: 


CHAR1,93,12,L${1,2L) :CHAR1,.3,13,L$(2,ZL) 


140 GOTO110 


<39> 
<202> 


150 IFLT<16THENZR=ZL : ZL=INT {RND (1) *16) +1:6C0T 


0120 


160 LT-0:1%(ZL)=L%{ZL) +1: LA=LA+1:GOSUBA0O 


<247) 
<195> 


170 LP=INT(LA/5)+BP*5:COLOR1,8,5:CHAR1.7,13, 


"URYSON}" : PRINTUSING"###"; LP 

180 POKE239,0:IFBP-STHENRETURN 

190 COLOR1,8,5:G60SUB280 :G05UB270 :J0=2 

200 IFJOY(1}=7THENGOSUB260:608UB290 :LEFJO"1 
210 IFJOY(1)=3THENGOSUB270 :GOSUB280 : LETJO=2 





<181> 
<209> 
722 

<210> 
<210> 


177 


BEE PROSERZAMME 


220 IFJOY(1)=126ANDJO-1THENGOSUB300: RETURN 
230 IFJOY(1)=128ANDJO=2THENGOSUB300 :GOTO310 
240 GETT$: IFT$="0"THEN350 

250 GOTO200 

260 CHAR1,8,15,"(RVSON FLASHON SY SZ} ":CHAR1 
‚8.16,"{9Y SZ FLASHOFF}” : RETURN 

270 CHAR1,10,19,"{RVSON FLASHON CE CF}” :CHAR 
1,10,16,"(CT CH FLASHOFF} " :RETURN 

280 "CHAR1 8,15, "{RVSON SY SZ)" :CHAR1,8,16,"1 
SY 82%" :RETURN 

290 CHAR1,10,15,"{RVSON CE CF)" :CHAR1.10,16, 
"(CI CH)" :RETURN 

300 CHAR1,8,15, "{RVSOFF 8Y SZ CE CFY" CHAR, 

8.16,"(SY SZ CI CH": RETURN 

310 A=1:B=2: POKE194,0:P=P-LP ıGOSUB1350 

320 IFBA% (A)=17THENGOSUB340 ;:G0SUB370 ;GOTO9O 
330 A=A+1:B=B+2:G0T0320 

340 BA%{A)=ZL:BP=BP+1:LA=LA-1:COLOR1,3,6:CHA 

R1,B,15,L$(1,ZL):CHAR1,B,16,1$(2,ZL) :RETURN 
350 CHAR1,1,1,"{RVSOFF FLASHOFF} " :CL=7: FORA” 

6TOLSTEP-1:SOUND3, 500,10: VOLA:NEXT:GOSUB1740 

360 FORA=1TO16 :PM=PM+ (4-L% (A) ) :NEXT:GOSUB134 
0:G0SUB1370 : NE=1:G0T01550 

370 A=1 

360 IFL%(A)<ATHENRETURN 

390 A=A+1: IFA=17THEN1550 :ELSE380 

400 IFL%$(ZL)=OTHENPOKE194,0:ELSEPOKE194,1 

410 COLOR1,3,CO%(L%ZL)) :CHAR1,ZL*2+2,21,L$t 
1,ZL):CHAR1,ZL*2+2,22,L$(2,2L) : RETURN 

420 WC=14:5C=11:W=1:9=2:POKE194,1 

430 WeW+1:WC=WC+2: IFW=6THENS=S+1:80=SC+2 :W=1 
:WC=14 

440 IFFL%(1,W,S) >3THEN430 : ELSEGOSUB780 

450 IFJOY (1) =3ANDWESANDFL&%(1,W+1,S)<4THENGOS 

UB830 :WC=-WC+2 :W=W+1 : GOSUB780 

460 IFJOY(1)=7ANDW>ZANDFL&(1,W-1,5)<4THENGOS 

UBB30 :WC=-WC-2 :W=W-1 :GOSUB780 

470 IFJOY(1)=SANDS<SANDFL&(1,W,8+1)<ATHENGOS 

UB830 :SC=*SC+2:S-S+1 :GOSUB780 

480 IFJOY(1)=1ANDS>2ANDFL%(1,W,S-1)<4THENGOS 

UB830 :SC=SC-2:3=8-1:G0SUB780 

490 IFJOY(1)=128THENGOSUB740 : IFOK=1THENOK=0: 

RETURN 

500 GETT$: IFT$="0"THEN350 

510 GOTO450 

520 ZL=0 : IFBP=-OTHENRETURN 

530 COLOR1,3,5:B=2:FORA=1TO3 

540 POKE194,1:CHAR1,B,15,L$(1,BA%(A)):CHARL, 

B,16,1$(2,BA%(A)) 

550 B=B+2:NEXT:COLOR1 ,8,6:CHAR1,8,15,"{5Y SZ 
)":CHAR1,8.16,"(SY SZ)” 

560 JW=B :BW=4:G05UB660 

570 IFJOY (1) =3ANDBW< ATHENJW=JW+2 : EW=BW+1 :G08 

UB640 :GOSUB660 

580 IFJOY(1)=7ANDBW>LTHENIW=JW-2 : BW=BW-1;G08 

UB650 :G09UB660 

590 IFJOY(1)=128ANDBA% (BW)< >17THENGOSUB620:R 

ETURN 

600 GETT$: IFT$="0"THEN3S0 

610 GOTOS70 

620 IFBW=4THENGOSUB670 ; RETURN 

630 ZE=BA%(BW) :BA&(BW)=17: BP=BP-1 :LA=LA-1:G0 

SUB670 : RETURN 

640 IW=JIW-2:BW=BW-1:CHAR1,1.1,"(RVSON FLASHO 

EF}" :GOSUB720 : JW=JW+2 ; BW=BW+1 : RETURN 

650 JW=JW+2:BW=BW+1:CHAR1,1,1,"(RVSON FLASHO 
ER) " :608UB720 : JW=JW-2 : BW=BW-1 :RETURN 

660 CHAR1,1,1."{RUSON ELASHON) " :GOSUB720RET 

URN 

670 B=2: FORBW=1TO3 

680 IFBA%(BW)=17THENCHAR1,B.15,"{FLASHOFF RYV 
SOFF RED SO SP)" :CHAR1,B,16,"18L 38" :60T070 


0 

690 COLOR1,3,6:CHAR1,1,1,"{FLASHOFF RVSOFF}" 
:CHAR1,B,15,L$(1,BA%(BW)) :CHAR1,B,16,1$(2,BA 
%(BW}) 

700 B=B+2:NEXT 
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<163> 
<155> 
<113> 
<55> 

<105> 
<248> 
<15> 

<143> 
<232> 
<168> 
«26? 

<1397 
<97> 

<23> 

<1372 
<171> 
<218> 
<133> 
<218> 


<44) 
<225> 


€114> 
<170> 


<217> 
<48> 
<43> 
<.76> 
<178> 
<118> 
<79> 
<123> 
<184> 
<130> 


<214> 
%204> 


<242> 
447 
<234> 
<219> 
<188> 
<184> 
<206> 
<158> 
<234> 
572 
<24>7 
x9) 


«1052 
<182> 


710 COLOR1.8,5:CHAR1,8,15, "{FLASHOFF RVSOFF 


$Y SZ)" :CHAR1,8,16,"(SY 52)" :RETURN 

720 TFBW=ATHENCOLOR1 , 8,6:CHAR1,JW,15,"(5Y 52 

}":CHAR1,IW,16,"(SY 852)" :RETURN 

730 COLOR1,3,6:CHAR1,JW,15,L$(1,BA%tEW)) ;CHA 

R1,JW.16,1L$(2, BA&(BW)): RETURN 

740 IFH>LANDF&(H-1 WS) =ZLTHENVOL5 : SOUND, 10 

0,10 :50UND2,50,10:RETURN 

750 F%(H,W,S)=ZL:COLOR1,16,C0%(H) :POKE194,1 

760 CHAR1,WS+HZ&(FL%(1,W,5)).SC-10,L$(1,2L): 

CHAR1.,WS+HZ% (FL%(1,W,5)),5C-9,L$(2,ZL) 

770 FL%(2,W,3)=ZL:CHAR1,WC,SC,L$(1.ZL) :CHAR1 

‚WC,SC+1,L$(2,ZL) :OK=1:RETURN 

780 FL&(1,W,9)=FL&%(1,W,5)+1:H=FL%(1,W.5)::POK 

E194,1 

790 COLOR1,3,CO%(FL%(1.W,5)) :CHAR1.WC,SC,L$( 

1,2L) :CHAR1,WC,SC+1,L$(2,ZL) 

800 WS-WC-15:55=SC-10 

810 CHAR1,WS+HZ&(FL%(1,W,9)),S3,.L$(1.ZL):CHA 

R1,WS+H2% (FL%(1.W.5)) ,SS+1,L$(2,2ZL) 

820 RETURN 

830 IFH=-1THENLS=18:CF=14:CB=-1 

840 IFH>1THENLS=-17:CF=16:CB=H-1 

850 COLOR1,14,CO%{H) :POKE194,1:CHAR1 ,WS+HZ% ( 

FL%(1,W,9)3.99,L$(1,L5) 

860 CHAR1,WS+HZ&1{FL%(1.W,5)).55+1,1L$(2,L5):F 

OKE194,1 

870 COLOR1,CF,CO%(CB)J ;CHAR1,WC,SC,L${1, FL%L2 

‚W,9)) :CHAR1.WC,SC+1,L$(2,FL%(2,W,5}) 

860 FL&1,W,S)=FL%(1,W,5)-1; RETURN 

890 H=FL%{1,W,S) :SUS(7)=FL%(2,W,5):5U% (6) 0 

900 FORA=2T05:5U%(A)=F&tH,W,A) :NEXT:WIN"-0:60 

SUB1240 

910 TFWIN=-1THENFORA=2TOS: F&{H,W,A)=FSCH,W,A) 

+100::NEXT:F%(H,W,S}=5U%{7) 

920 FORA=2T05:5U%(A)=F%{H,A.S) :NEXT:WIN=0:G0 

SUB1240 

930 IFWIN=1THENFORA=2T05:F%{H,A,5)=F% (H.A,S) 

+100 :NEXT:F&%(H,W,5)=SU% (7) 

940 B=2:FORA=2TO5:5U% (A)=F%(H,A,B):B=B+1:NEX 

T:WIN=0:COSUB1240 

950 IFWIN=-1THENB=2:FORA=2TOS:F&(H,A,B)=F%{H, 

A,B)+100:B=B+1:NEXT:F%CH,W,.5)=5U% (7) 

960 B=2:FORA=-5TO2STEP-1:5UX(A)=F%{H,A,B}:B=B 

+1:NEXT:WIN=0 :G0SUP1240 

970 IFWIN=1THENB=2: FORA=STO2STEP-1:F%(H,A,B) 

=F%(H,A,B}+100:B=B+1:NEXT:F%(H,W,S)=SU% (7) 

980 FORA=-1T04:SUKfA+1)=F%(A,W,S) :NEXT:WIN=O: 

GOSUB1240 

990 IFWIN-1THENFORA=1T04:F%(A,W,S)=F%(A,W,5) 

+100:NEXT:SU&(8)=1 

1000 IFSU% (6) >OTHENF% (H,W,5)=SU%(7)+100:650T0 

1010: ELSERETURN 

1010 COLOR1,8,5:H1=H:W1=-W:W2=WS:51=5;952=55:P 

T-0 

1020 FORH=1T04:60SUB1140:NEXT 

1030 WS=1:55=1:H=Hi : FORW=2TOS : FORS=2T0I :60SU 

B1140:59=S55+2:NEXT:S9=1:WS5=-W3+2:NEXT 

1040 W=W1:WS=W2:5=51:53=52 

1050 IFSUX&(8)=1THENSU% (8) =0:G60SUB1180 

1060 WS=1:93=1 :H=Hi + FORW=2TO05 : FORS=2TOS : IFF% 

(H,W,5) >100THENGOSUB1}170 

1070 85=59+2:NEXT:SS=1 :WS=WS+2:NEXT 

1080 GOSUB1100:G0SUB1360:WC=16:5C=11: FORH=-1T 

04: FORW=2TO5 : FORS=2T05:GOSUB1110 

1090 3C=-SC+2:NEXT:SC=11:WC=WC+2:NEXT:SC=11:W 

C=16:NEXT ; RETURN 

1100 COLOR1,14,1:CHAR1,1,1, "(RVSON)" :A=16: FO 

RB=11T018STEP2 : GOSUB1770 : NEXT : GOSUB1850 : RETU 

RN 

1110 IFF%(H,W,S)=170RF%(H,W,S)=18THENRETURN 

1120 FL%11,W,S)-FL&%(1,W,5)+1:FL%(2,W,5)-F%cH 

‚W,5):POKE194,1 

1130 COLOR1,16,CO%(H) :CHAR1,WC,5C,L${1.FL%(2 

‚„W,S)) :CHAR1,WC,SC+1,L$(2,FL%(2.W,3)) :RETURN 

1140 IFF%(H.W.5)< 100THENRETURN 

1150 IFF%(H,W,S) >100THENF&{H,W,S}=F%(H,W,3)- 
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<2107 
<248> 
<196> 


<166> 
<141> 


<216> 
<38> 
<772 


<47> 
<57> 


<100> 
<197> 
<109> 
<134> 
<234> 
<14> 

<87> 

<105> 
<242> 
<213> 
<131> 
<189> 
<23> 

<168> 


<94> 


<213> 


<108> 
<213> 
<255> 
<6> 


7? 
<129> 


81397 
547 
<165> 


<74> 
<203> 


<125> 
<99} 
X6> 
<128> 
<0> 


<18> 
<10> 





100:CHAR1.WS+HZ% (H) ,S3,L$(1,F%(H,W,5)) 

1160 CHAR1.WS+HZ%(H) ,5S5+1,L$(2.F&CH.W,5}):F% 
{H,W,S)=F%(H,W,5)+100: RETURN 

1170 A=H:605VB1220 :TORA=HTO4A: FR (A ,W,S)=F% (A+ 
1,W,5) :GOSUB1190 : NEXT: RETURN 

118G FORA=1T04:P%tA,W,S)=17:G0SUB1190:NEXT:R 
ETURN 

1190 COLOR1,14,C0OX%{A) :IFA=-1ANDF&(A,W,5)=17TH 
ENLN=18:60SUB1230 : RETURN 

12060 IFF&%(A,W,S)=17THENLN=17:G608UB1230 : RETUR 
N 

1210 COLOR1,16,C0% (A) :LN=F% (A,W,5) :G0OSUB1230 
: RETURN 

1220 FR(A,W,5)=F%IA,W,5)-100 :PT=-FT+F% (A,W,8) 
:GOSUB1410 ;GOSUB1290 : RETURN 

1230 CHAR1,1,1,"t{ RVSON}" »CHAR1,WS+H2%{A) ‚33, 
L${1,LN):CHAR1,WS+HZ%{A).SS+1,L$8(2,LN) :RETUR 
N 


1240 RE=0 : FORA=2TOS : IFSUS(A)=170RSUX (A) =18TH 

ENRE=1 

1250 NEXT: IPRE=1THENRETURN 

1260 IFSUX(2)=-SUX(3) +1 ANDSUX(3I=3U% (4) +LANDS 

U% (4)=SU% (5) +1 THENWIN=1 :SUX (6) -SUX(6) +1 

1270 1FSU%(2)=J9UX (3) -1ANDSUX (3) =-SUX (4) -LANDS 

1% (4) =SU% (5) -1THENWIN=1:9U% (6) =SUX (6) +1 

1280 RETURN 

1290 GOSUB1460:COLOR1,8,6:CHAR1,34,14,"(RVSO 

N)" :PRINTUSING "44#' PT: RETURN 

1300 COLOR1,8,6:CHAR1,37,14, "( RVSON}" :PRINT; 

SU%(6) :POKE3669 , 170 : RETURN 

1310 PB=H1*10 

1326 COLOR1,8,6:CHAR1,37,16,"{.RVSON}" :PRINTU 

SING"##" ;PB:RETURN 

1330 PM=PTrSUK(6) 

1340 COLOR1,9,6:CHAR1, 34,14," {RUSON)" :PRINTU 

SING "#448" ; PM: RETURN 

1350 COLOR1,8,6:CHAR1, 34.12, "{ RVSON) " :PRINTU 

SING"+#4##" ;P: RETURN 

1360 GOSUB1300:G0SUB1310 ; FORC=-1T0300 :NEXT:GO 

SUB1330 

1370 DOUNTILPM=0 : PM=PM-1: P=P+1:GOSUB1340:G08 

UB1350:LOOP 

1380 IFNE=1THENRETURN 

1390 DOUNTILPB=0 : PB=PB-1:P=P+1:G0SUB1320:608 

UB1350 : LOOP : GOSUR1480 

1400 PT=0:PB=0 : PM=0 : RETURN 

1410 COLOR1,16,6:CHAR1,F%(A,W,5)*2+2, 23, "{RV 
SOFF SY SZ)" :BL&(F&(A,W,S) )=BLS(FS(A,W,S))+1 
1420 B=1:FORC=1T016: IFBL% (C) >OTHENB=B+1 

1430 NEXT: IFB>16THEN1440 : ELSERETURN 

1440 GOSUB1470 : FORZL=1T016:L%(ZL)=L%1ZL)-1:6 

OSUB400 : BL% (ZL)=O 

1450 COLOR1.16,1:CHAR1,ZL*2+2,23,"(RVSOFF SY 
SZ)": NEXT: RETURN 

1460 FORA=5TO1STEP-1: VOLA:SOUND1,800,5:NEXT: 
RETURN 














<155> 
<207> 
<827 
<198> 
<140> 
<28> 
<82> 
2327 


<199> 


<104> 
<215> 


<57> 


<160> 
<1477 


732 


<157> 
g1> 


<2437 
<43> 


<93> 
<225> 
<60> 


<1957 
<232> 


<41> 
<155> 


<108> 
<92> 
<174> 
<38> 
<153> 


797 


PROSRAMDE Ba 


1470 VOLS:FORC=1TO10 :SOUND1 600,3: 90UND1,650 
‚3:NEXT: RETURN 

1480 VOLS : FORA=STO1STEP-1 : VOLA : SOUND1 ‚500,5; 
NEXT: RETURN 

1490 VOL5 :FORA=1TOS0 : READB. C ;SOUND1,B,C:SOUN 
D2,B-1,C: NEXT: FORA=1T03: SOUNDS, 596,5 

1500 FORB=1T0150 : NEXT : NEXT : RETURN 

1510 DATA739,10,.596.10,643,10,685,15,643,10, 
810,20 

1520 DATA798,10,770,10,739,10,739,20,810,10, 
685,20 

1530 DATA685,10,704,10,725.10,739,10.725,10, 
704,10 

1540 DATA685,10,643,15,739,10,596,30 

1550 SO=10:RESTORE1530 : GOSUB1490 

1560 GOSUB1100:COLOR1,8,5:FORA=12TO17:CHAR1, 
17,A,"{RVSON SBACES)” 

1570 NEXT:CHAR1, 17,13, "*ENDE*":CHAR1,18,15," 
FIRE" :CHAR1 ,18, 16, "=RUN“ 

1580 IFJOY (1)=128THENSCNCLR: RUN2O 

1590 GOTO15BR 

1600. COLORO, 1:COLOR4, 1 :COLOR1,2,7:SCNCLR:608 
UB1700 

1610 C=3: FORA=11TO31STEP10:COLOR1 ,14.C: FORB= 
1TOBSTEP2 : GOSUB1770 : NEXT: C=C+2:NEXT 

1620 POKE194,1:A=1:COLOR1, 14,1: FORB=1TOBSTEP 
2:G0SUB1770 :NEXT 

1630 A=16:FORB=11TO18STEP2 :GOSUB1770 :NEXT; PO 
KE194, 0: :G0SUB1740 

1640 COLOR1,8,3:CHAR1,6,13,"{RVSON SPACES}" 
1650 CHAR1.2,15, "(RED RVSOFF 50 SP SO SP 50 
SP}":CHAR1,2.16," (RED SL SE SL 5@ SL S@)" 
1660 COLOR1,8,5:CHAR1,8,15,"{5Y SZ CE CF}":C 
HAR1,8,.16,."(8Y SZ CI CH" 

1670 COLOR1.,8,6:CHARL, 27,12," RUSON}KONTO{ SP 
ACE}” :CHAR1, 27,14, "GEWINN" 

1680 CHAR1,27,16, "BONUS{ SPACE) " :FORB=12T0168 
TEP2:CHAR1,34,8, "(SPACES}" :NEXT 

1690 RETURN | 

1700 COLOR1,2,1:FORB=11T017:CHAR1,26,B."{RVS 
OFF C+14}":CHAR1,0,B,"(C+14)":NEXT 

1710 FORB=20T024:CHAR1, 3,8. "{.C#34}" :NEXT 
1720 CHAR1.4,24,"{C\32}" 

1730 COLOR1.3.3:CHAR1,3,12,"{RVSON SO SPY" :C 
HAR1,6,.12,"PREIS":CHAR1,3,13,."(5L S@ RUSOFF} 
"RETURN 

1740 B=1:FORA=4T035STEP2 ;COLOR1 ,3,CL:CHAR1,A 
„21.L$(1,B):CHAR1,A, 22,L$(2,B) :B=B+1 

1750 COLOR1.16,.1:CHAR1,A,23,"{RVSOEF 5Y 521" 
:NEXT : RETURN 

1760 COLOR1,16,1:CHAR1,A,23,”(5Y SZ)" :NEXT:R 
ETURN 





Ku OB BE SI O HE 2 Bu = 


HARI. A,B+1."(SL 5@ 3. 36 SL. 30 SL 50: RETUR 
1780 RESTORE1860: FORA=1TO19: READL${1,A) ,L$(2 


Haben Sie Fragen 
zu unseren Listings? 


Unsere Programmierer helfen Ihnen gerne weiter! Die HOTLINE ist unser Leserservice. 


Aber bitte wählen Sie nur die angegebene Nummer, und rufen Sie nur in der angegebenen Zeit an. 


Sie erleichtern damit den anderen Abteilungen des Verlages die Arbeit. Vielen Dankl 


HOTLINE 0O 56 51 - 3 00 13 
montags von 14 - 16 Uhr 
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<152) 
«2393 


<136> 
<119> 


<127> 
822 
<3> 
<108> 
<205> 
<32> 
<117> 
<51> 
<150> 
<106> 
<8B> 
<87> 


2527 
<89> 


<145> 
<91? 
<14> 


<238> 
<46> 


<233> 
<37> 

<110> 
<137>3 
<108> 
<132> 
2413 


<150> 


19 





BEN PROSKV/ALMME 


„A):NEXT 
1790 FORW=1T06 :FORS=1T06 ; F%(1,W,5)=19:NEXT:N 
EXT 


1800 FORH=2TOS : FORW=1TO6 ; FORS=1T06 : FX(H.W.5) 
=17:NEXT:NEXT: NEXT <83> 


<210> 


1840 C0%(1)=1;C0%(2)=3:C00%(3)=5:00%(4)=7 «573 
1820 FORA=1T03:BAR®{A)=17:NEXT:BA% (4) =19 <150> 
1830 H2%(1)=0:H2%(2)=10;:H2%(3) =20:H2%(4)=30 «20> 
1840 FORW=ITOS: FLS(1,W,1)=4:FLSt1,W,6)=4:NEX 
T:FORS=1T06 : FL%(1,1,5)=4:FL%(1,6,9)=4:NEXT <«161> 
1850 FORW=2TOS : FORS=2TOS5 :FLS{1,W,9)=0:FL% (2, 
W,5)=18:NEXT:NEXT : RETURN <a0> 
1060 DATA"(5S SA" ,"(ST SB", "1SS SCH", "IST 
SEE SE NUST SF)" ,"i8$ SC" "IST SH" 

"188 SID“. "(ST SD"."38 EM". "IST SW, is 

} SM”,"1ST SN " <195> 
1870 DATA" (SS SI", "IST SVI"."155 59", "IST 

SR" ,."CSW SEHE; SV", "TSW 5A)”, "{SX SB“ 

."ISW SON NISE SD)" .V{SW SEI“ ,"ISX SE”","{E 

K SCh","15X SH" <181> 
1880 DATA" {SW SIIY“,"ISX Sn". SW SO" ."ISX 

SV}" ,"ARVSOFE Pi#] SPY", "IRVSOFF SL 2] Ak 91753 

ON 50 SP)". "LRUSON SL 3" ."ISY 223"."ı18Y 32 Ban 
} < 
1890 DATA162,0,189,0,208.157,.0,60,189,0 <71> 
1909 DATA209,157,0,61,189,0,210,157,0,62 <$226> 
1910 DATA189,0,211,157,0,63,202,208, 229,96 <125> 
1920 RESTORE1890 : FORA=832T0861:READB:C=C+B:P 
OKEA,B:NEXT <88> 
1930 COLOR4, 2; POKE65298,0:POKE65299, 60 139) 


19340 SYS832:POKES5, 255: POKES6,59:CLR:RESTORE 
1959 357 
1950 DATA65,255,1,.1,25,57,121,25,25 <98> 


1960 DATA66,25,25.23,25,25,25,1,255 <177> 
1970 DATA67,255,1.1.57,109.109,13,13 <217? 
1980 DATA68,25,49,97,695,125,125,1,255 <141> 
1990 DATA69,255,1,1,57,109.109.13,25 <70> 
2000 DATA70,29,13,109,109,121,49,1,255 <244> 
2010 DATA71,255,1,1,9,25,17,49,393 <11> 
2020 DATA72,97,73,89,125,25,25,1,255 <250> 
2030 DATA73,255,1,1,121,121,65,65,125 <207> 
2040 DATA74,13,13,109,109,121,57,1,255 <230> 
2050 HATA75,255,1,1,57.109,109,97,121 <187> 
2060 DATA77,255,1.1.129,125,69.13,25 <156> 
2070 DATA78,17,49,.33,97,97,97,1,255 8392 
2080, DATA81,255,1,1,57,109,109,109,109 <160> 
2090 DATA82,61,33,109,109,121,49,1,255 59> 
2100 DATA83,255,128,.128,142,155,155,155,.155  <72> 
2110 DATA84,155,4355,155,155,159,192,1208.255 <170> 
2120 DATA85,255,1,1,57,109,109,109,57 «972 
2130 DATA86,109,109,109,109,125.57,1,255 <25> 
2140 DATA87,255,128,128,134,142,158,134,134 <196> 
2150 DATA88,134,134,134,134,134,134,128,255 <199> 
2160 DATA89,0.1,3,7,15,31,3,3 <77> 
2170 DATA90,0,128,192,224,240,248,192,192 <31> 
2180 DATA98,128,128,140,140,135,128,128,255 <32> 
2190 DATA113,255,128.128,191,140,.140,140,131 «1577 
2200 DATA116,153,153,.153,153,225,129,1,255 <239> 
2210 DATA123,255,1,129,241,153,153,129, 225 <30> 
2220 DATA-1 x36> 
2230 READD; IFD=-1THEN2260 <77> 
2240 FORA=0T07:READB:PORED*8+15960+A,B: NEXT <105> 
2250 GOTO2230 <172 
2260 GOTO20 <89> 


ENDE DES LISTINGS 





PAC-MAN mal anders 


Der Sinn des Spiels Jawbre« len, ist, daß die Ebenen nicht 


in jedem Level befinden sich gen ist, sämtliche Punkte eines 


aker besteht darin, in jedem 
Level so viele Punkte wie ir- 
gend möglich zu fressen. Dazu 
laufen Sie mit Ihrer Spielfigur 
durch fünf Ebenen, in den sich 
die Punkte befinden, die Sie 
dadurch fressen, daß Sie darü- 
ber hinweglaufen. Eins der 
Probleme die sich dabei stel- 





20 


stillstehen. Es befinden sich 
vielmehr wandernde Lücken 
darin. Diese Lücken sind die 
einzige Möglichkeit, in einean- 
dere Ebene zu gelangen. 


Außerdem sorgen bis zu vier 
Monster dafür, daß Sie ständig 
in Bewegung bleiben müssen. 


VUNFEETLETUUTT 


zwei blinkende Punkte, die es 
ermöglichen, für kurze Zeit 
durch die Monster hindurchzu- 


Levels zu fressen. 


Nach dem Vertilgen der not- 


2212 81 2 2 0208 


KR EaAa a aA  E A a ı 


laufen. Man erkennt es daran, 
daß die Monster die Farbe än- 
dern. Zusätzlich ergibt sich da- 
durch noch die Möglichkeit, 
selbst Punkte zu erschaffen, so 
daß man nicht mehr gezwun- 





nustrtzeruuvr une 


wendigen Menge an Punkten 
gelangt man sofort in den 
nächsten Level, der sich da- 
durch unterscheidet, daß die 
Monster nun schneller sind. Im 
Titelbild können Sie den 
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Starttevel (0-9) selbst festlegen. 
Bevor es dann losgeht, müssen 
Sie noch Ihren Namen 
eingeben. 


Gesteuert wird mit dem Joy- 
stick in Port 1. 


S”’JAWBREAKER” 8(,1),1000 
‚4000. 

Wer weniger Speicherplatz be- 
sitzt, der muß das Programm in 
zwei Teile zerlegen und diese 
später mit dem Monitor wieder 
Wie das 


PROGRAM Ba 


zusammenfügen. 
geht, wurde schon bei SHOO- 
Das Programm besteht aus TER beschrieben. 
zwei Teilen: Einsm kurzen 
Basic-Loader und dem &i- 
gentlichen Spiel, ein MC- 
Programm. 


„JAW- 


Programmname: 
BREAKER 
Computertyp: 
C16/116/Plus 4 


Lauffähig auf: Floppy und 
Kassette 

Besonderheiten: 
Muli-Color-Grafik 


Der Checksummer wird (wenn 
man 64K-RAM besitzt) an 


Adresse 32000 gelegt. Ab- Schöne 























gespeichert wird mit 

C-16 LISTINGS + CHECKSUMMEN {00 V1.,0) 300 PRINT TAB(A):"{YELLOW S- SPACE PURPLEYCO 

PYRIGHT{SPACE4 YELLOW S-}" <85> 

100 REM men ann <36> 310 PRINT TAB{A);"{ YELLOW 5- SPACE BLUE)1968 
110 REM » = <222> t {SPACES YELLOW 5-})" <232> 
120 REM - JAWBREAKER-LOADER _ <B> 320 PRINT TAB{A): {YELLOW 5- SPACE YELLOWBY 
130 REM — - «242> | {SPACEI1 YELLOW SH" <155> 
140 REM - WRITTEN AND COPYRIGHT - <161> | 330 PRINT TAB{A);"(YELLOW S- SPACE BRN}PATRI 
150 REM - 1988 BY - <137> | CKiSPACES YELLOW S-}" <151> 
160 REM - PATRICK MEISSNER - <107> | 340 PRINT TAB{A);"{ YELLOW S- SPACE ORNGYMEIS 
170 REM - TANNENWEG 8 - <247> | SNERISPACES YELLOW S-}" <203> 
100 REM - 7400 TUEBINGEN = €165> | 350 "PRINT TAB(A);"{ YELLOW 51 St14 SKY“ <103> 
190 REM — = <46? 360 PRINT:PRINT <65> 
200 REM —— me Ton <136> | 370 PRINT TAB(B);"{GREEN UPYDAS{ SPACE}PROGRA 
210 ; <12> MM{ SPACEYWIRD{ SPACE} GELADEN ( SPACE}! " <89> 
220 SCNELR:COLOR 0,1:COLOR 4,1 <36> 380 : <183> 
230 A=12:B=7:C=10:PRINT "{ DOWNS}” <ı120> | 390 PRINT "{HOME BLACKYMONITOR" <202> 
240 PRINT TAB(A}:"{ YELLOW SU Sri14 3SI7" 234> 400 PRINT "i DOWNS}YL"+CHR$ (34) ; "JAWBREAKER”+G 
250 PRINT TAB{A); "YELLOW $- FLASHON L.BILU € AR$ (34) ;".";PEEK(174} x297 
A 5*12 C5 FLASHOFF YELLOW 5-}" <80> 4108 PRINT “1 DOWN2}G{ SPACE} 36500" x45> 
260 PRINT TAB(A) ;"i YELLOW S- FLASHON L.BLU 5 420 ; <223> 
> ELASHOFF RED SPACE} JAWBREAKER {SPACE FLASHO 430 PORE 1319,19 <73>2 
N L.BLU S- FLASHOFE YELLOW 5-3" <242> | 440 POKE 1320,13 <250> 
270 PRINT TAB(A);"{ YELLOW S- FLASHON L.BLU C 450 POKE 1321.13 <9> 
zZ S*12 CX ELASHOFF YELLOW Sz}" <ı172> | 460 POKE 1922,13 <24> 
280 PRINT TAB[A);"{ YELLOW 5- SPACE CYANIWRIT 470 POKE 239,4 <99> 
TEN{SPACES YELLOW S-3" <103> | 480 END <972 
290 PRINT TAB(A); "(YELLOW S- SPACE GREENYAND 
{SPACE1O YELLOW 5)" <194> | ENDE DES LISTINGS 


MC-LISTING MIT CHECKSUMMEN OVM1O >1070 51 91 EO 18 A5 EO 69 01 ::53 >10F0 69 D1 85 E2 A4C 28 31 A9 ::8D 

>1078 85 ED ACT AE 30 A9 20 AO ::2F >10F8 20 AD 03 91 E2 AO 53 91 ::AC 
1000 40 2E 91 E2 AD 43 2E 91 ::A4 >»1080 03 91 EU AO 53 91 EO 38 ::BA >»1100 A9 39 85 00 20 BB DB A9 ::C1 
>1008 E4 AN 46 2E 91 E6 AD 49 ;:ıC >1088 A5 ED EI 01 85 EO AQ 2C ::55 >1108 00 8D 19 FF A9 3A &D BB ::56 
>1010 2E 91 EB A9 20 AD 01 20 ;:393 >1090 AD 3D 2E 91 EO 88 AD 3C ;:CO >1110 06 A9 53 8D 90 06 A9 72 ::C9 
>1018 Di 32 c8 20 Di 32 CO 20 :;EE »1098 26 8D 3D 2E 91 EO 88 AD ::94 >1119 8D 95 06 A9 10 8D 9A 06 ::9A 
>1020 DI 32 AO 51 20 DI 32 CB :;AD >10A0 3B 2E BD AC 2E 91 EO AO ::4A >1120 A2 03 86 00 EA ER ER ER ::2F 
31028 20 D1 32 C8 20 DI 32 A9 ::DC >10R8 29 BL EO BD 3B 2E AD 39 ::D5 >1128 EA ER EA ER ER ER A2 26 ::09 
>»1030 00 @D 3E 03 8D 42 03 @D ::EA >10BO 03 CS 01 FO 03 A4C 28 31 ::BF >1130 A9 67 9D 50 08 A9 60 9D ::75 
»1038 38 03 60 AD 38 03 C9 01 ::0B >ı0B8 AD 33 03 C9 01 Fü 03. 4C ::22 >1136 B@ 09 9D 08 OR 9D 80 DA ::BA 
>1040 FO 03 4C AE 30 AD 32 03 ::56 >10C0 F7 30 AD 3E 2E AO 29 91 ::73 >1140 CA DO ED A2 1E A9 36 9D ::FB 
>1048 C9 01 FO 03 AC 7D 30 AD ::21 >10C8 E2 AD 3F 2E BD 3E 2E AD ;:00 »ı1Aa8 A3 09 CA DD FO AD 00 BY ;:AC 
>1050 3B 2E AO 29 91 EO AD 3C ::2B >10D0 2A 91 E2 AD 40 2E 8D 3F ::AD >1150 6D 11 99 00 OC B$ 6D 12 ::D8 
>»1058 2E 8D 38 2E AD 3D 2E 8D ::92 >10D8 2E AO 2B 91 E2 C& Bl E2 ::1C »1158 99 00 OD 59 &D 13 99 DOG ::CF 
31060 3C 2E AO 2C Bi EO 8D 3D ::10 >I0OEO BD AO 2E A9 20 AU 01 91 ;:1A >1160 OE B9 86 14 99 O0 OF CE ::79 
31068 2E A9 20 AD 01 91 EO A0 ::63 >10OEßR E2 AO 51 91 E2 18 A5 E2 ::DE 31168 DO ES 4C 6E 15 00 01 01 ::27 
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>1170 01 01 01 04 01 01 01 Öl ::23 >1248 20 BE SD BE B5 B6 20 AD ::86 »1320 20 20 20 20 04 03 20 68 ::B93 
>1178 Gt 01 03 Di Gi 01 01 01 ::AD »1250 AB 20 A4 A5 A6 20 20 20 ::AE >»1328 21 IF 5E 1B IF 20 1B IF ::30 
>1180 01 01 01 01 01 01 01 01 ::B5 >»1258 20 20 20 20 04 03 20 20 ::B6 >»1330 21 21 1F iC 6A 20 5E 20 ::D7 
>1188 01 01 01 01 01 01 01 01 ::BD »1260 87 88 BP 20 90 95 96 97 ::56 »1338 21 IF 24 ıF 21 20 76 20 ::31 
>1190 01 01 01 01 02 03 20 20 ::A7 »1268 9E 9P AO A7 AA AS AF BO ::59 21340 20 20 20 20 20 20 20 20 ::D3 
>1198 20 20 20 20 20 20 20 20 ;:29 >1270 Bi 8F 20 90 B7 BB BY AF ::5B »1348 20 20 20 20 0A 03 20 20 :: Al 
»11A0O 20 20 20 20 20 20 20 20 ;:3ı >1278 BO Bi A7 AB A9 20 20 20 ::1E »1350 20 20 20 20 2D 20 20 20 ::E3 
>»11A8 20 20 20 20 20 20 20 20 ;;39 >1260 20 20 20 20 04 03 20 20 ::DB 31358 20 20 20 20 20 20 20 20 ::EB 
>11B0O 20 20 20 20 20 20 20 20 ::41 1288 20 20 20 20 20 20 20 20 ::iA >1350 20 20 20 20 20 20 20 20 ::F3 
»11B8 20 20 20 20 04 03 20 62 ::1F >1290 20 20 20 20 20 20 20 20 :;22 >1368 20 20 20 20 20 20 20 20 ::FB 
>11C0 6B 6A IF 67 20 6A SE 62 ::C7 >»1298 20 20 20 20 20 20 20 20 ::2A >»1370 20 20 20 20 04 03 20 1B ::A1l 
>»11C8 20 6B 67 60 20 6C 23 21 ::A9 >»12A0 20 20 20 20 20 20 20 20 ::32 >1379 65 23 21 21 20 21 IF 24 ::7C 
»ıı1Doa 21 65 1D 65 66 1F 67 20 ::44 >12A8 20 20 20 20 04 03 20 BA ::DO »ı380 ı1F 21 2D 31 20 20 20 20 ;:;7F 
>11D8 6F 6B 2D 20 20 20 20 20 ::75 >12B0O BB 20 31 39 38 38 20 SF ::74 »1398 20 20 20 20 20 20 20 20 ::1B 
»11EO 20 20 20 20 04 03 20 20 ::37 >12B8 6E 20 68 5E 6A 1E 23 1C ::C3 >1390 20 20 20 20 20 20 20 20 ::23 
Ji1lEß 20 20 20 20 20 20 20 20 ::79 »12C0 65 20 66 1F 23 73 67 IF ::4F »1398 20 20 20 20 04 03 20 20 »:;:Fi 
»ı11F0 20 20 20 20 20 20 20 20 ::81 >12C8B 1E 20 20 20 20 20 20 20 ::58 >13A0 20 20 20 20 20: 20 20 20 ::33 
>L1F8 20 20 20 20 20 20 20 20 ::89 >12D0 20 20 20 20 04 03 20 20 ::28 >»13A8 28 20 20 20 20 20 20 20 ;::3B 
>1200 20 20 20 20 20 20 20 20 ::92 >12D8 20 20 26 20 20 20 20 20 ::6A >13B0 20 20 20 20 20 20 20 20 ::43 
>1208 20 20 20 20 04 03 20 82 ::70 »12E0 20 20 20 20 20 20 20 20 ::72 »13B8 20 20 20 20 20 20 20 20 ::4B 
>1210 83 84 89 BA BB 91 20 92 ::FD »12E8 20 20 20 20 20 20 20 20 ::7A »13C0 20 20 20 20 04 03 20 20 ;:19 
»1218 98 99 9A Al A2 A3 AN AB ;:40 »12F0 20 208 20 20 20 20 20 20 ::62 »13C8 20 20 20 20 20 20 20 20 ;45B 
>1220 AC 89 BA BB BZ B3 BA AA ::A2 >12F8 20 20 20 20 04 03 20 20 ::50 >13D0 20 20 20 20 20 20 20 20 :;63 
1228 AB AC Ai A2 A3 20 20 20 =:77 »1300 20 20 20 20 20 20 20 20 ::93 >13D8 20 20 209 20 20 20 20 20 ::6B 
>1230 20 20 20 20 04 03 20 20 ;:88 21308 20 20 20 20 20 20 20 20 ::9B >13E0 20 20 20 20 20 20 20 20 ::73 
>1239 85 86 8C 80 GE BF 20 90 ::33 >1310 20 20 20 20 20 20 20 20 ::A3 >13E8 20 20 20 20 04 03 20 6B ;:Bi 
>1240 96 9C 9D A4 A5 AG AD AE ::Da »1318 20 20 20 20 20 20 20 20 ::AB >13F0 1E AF 1B 1B 20 61 23 1E ::E7 





Eine solche Veröffentlichung Kann sich manchmal etwas verzögern. Wir 
treffen zunächst eine Vorauswahl unter dem Gesichtspunkt der Qualität 
und stellen im Anschluß eins Auswahl speziell für ein Heft zusammen, 


Allen Programmautoren dieses Hefts an dieser Stelle herzlichen Dankt 


Wer sich ebenfalls als Programmautor versuche möchte oder erneutsich 


beteiligen will, schneide bitte den Bewerbungsbogen mit der Schere aus 
und fülle ihn aus. Ihr selbstgeschriebenes Programm tritt in Konkurrenz 
zu sehr anspruchsvollen anderen Programmeinsendungen. Wenn Sis 
keine Befürchtungen haben, daß Ihr Programm unserer Qualitätsprüfung 
nicht standhält, schicken Sie uns Ihr Programm per Briefsendung, Eine 
Veröffentlichung lohnt sich auch finanziell! 


Wenn ein bereits ausgewähltes Programm sich nicht in die Konzeption 
einfügen läßt, wird es zurückgehalten, um vielleicht in einer späteren Aus- 
gabe berücksichtigt zu werden. Werden Sie also nicht ungeduldig, wenn 
Sie nicht sofort nach der Einsendung eine eindeutige Zusage erhalten. 
Honoriert werden dabei nicht nur die Qualität der Programmierung, son- 
dern auch die Originalität der im Programm realisierten Idee. 
Ottfried Schmidt 


Bewerbung als Programmautor 


Name: 
Straße: 
Titel des Programmes: 


Erforderlicher Speicherplatz: KBytes 


Vorname: 


Wohnort: 


Computersystem: 


Bitte iegen Sie Ihrer Bewerbung einen adressierten und frankierten 


Rückumschlag (DIN A4, 1,40 DM) beil 


[3 


Erforderliche Perlpherle: 


Ich versichere hiermit, daß Ich der Autor des obengenannten Programmes bin und alle Rechte besitze. ich bin damit einverstanden, 
daß Sie mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen. Das einmallge Honorar beträgt 120 DM pro ab- 
gedruckter Seite. Sollte das Programm nicht veröffentlicht werden, bitte Ich um Rücksendung meiner Unterlagen. Sollte mein Pro- 
gramm in der Zwischenzeit von anderer Seite erworben worden sein, werde Ich Sie unverzüglich benachrichtigen. Ich bestätige durch 
meine Unterschrift, daß ich Kenninis davon habe, daß der Tronic-Verlag gegen Personen, die Programme einschicken, deren Ur- 
heberrechte sie nicht besitzen, rechtliche Schritte elnlellet. 

Unterschrift des Programmautors #ei Minderjährigen auch die eines Erziehungsberachtigtank 


Folgende Unterlagen liegen diesern Schreiben bel: 


Diskette: Rückporto: 


Kassette: Dokumentation: Listing: 


Unterschrift des Programmautors (sl Minderjährigen auch die eines Erziahungsberechtigten): 


. h (Bftte zweimal unterschreibenf) 
Tronic-Verlag Abt. Programmentwicklung, Am Stad, 3440 Eschwege 


Einsenden an: 
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ST _ ee 


1:5: DEINES HER ESS ETUEN anlelm 














O Joystick Adapter 
DI Speichererweiterung 
5 Four great Games 


ACE. 
D Adress (deutsch) 
D Allens UK 
D Atlantis 
DO Auf Wiedersehen Monty 
D Auriga 
U Bandits at Zero 
D World Series Basshall 
O Battle 










O Barks Trogy 
U Big Mac 

D BNMX Racer 

U] BMX-Simulator 

U Bounder/Planstssaroh 
D Bubble Trouble 

D Championship Wrestling 
D Classics I 

DO Classics Ill 

D 10 Computorhits IR 
D 10 Computarhits IV 
© Datel (deutsch) 

DO Datenbank 

ED Death Rasa 16 

ED Defenoe 16 

EI Demaolition 

DO Dirty Den 

ED Dizasterblaster 

DO Dork’s Dilemma 

D Europsan Gamss 

DO Finders Keepare 

DO Fingers Malone 

ED} Five Star Games I 

D Five Star Gamas Il 

G Five Star Games Ill 
D Flight Path 797 

DI Footballer of ihs Year 
D Fooiball Maneger 

I] Formula One 

DO Frank Bruno's Boxing 
DO Frenals 

DB Future Kalghte 

O Future Shock 

OD Gelaxions 

D Games Pack I 

D Games Pack Il 

D Grandmaster Chess 






































Alle Preise sind Ladenpreise. Bei Versand per Nachnahme berechnen wir Porto 5,90 DM, bei Vorkasse mit 
Scheck 2,50 DM. Zum Bestelien einfach ATS UZBNE UN or abschicken! 





Power-Hit-Bestellung 16 


U Greatest Hits 

7 Gullwing Falcon 

OD Gun Law 

D Swan 

El Haktik 

OD Hercules 

E] Home Office 

0 International Karate 
5 Into ihe Deep 

OD Jet Brix 

D Jar Sar Willy J 

D Jet Set WIIIyT 

DO Kikstart 

D Klitapeda 

DO King 8ize 50 Qames 
DO Knock Out 

DO Kung Fu Kid 

D Las Vegas Video Poker 
D Lawn Tennis 

OD Leapin’ Loufe 

DO Manlc Miner 

ED] Mastarchees 

D Matrix and Laserzona 
U] Megabolts 

E Molscule Man 

‚I Monkey Magic 

ED Mr, Puniversa 

DO) Muslesyntheslizar 
Ol Ninja Master 

D Oblido 

DO Omnibus 1 

D Omnibus 2 

DO) One Man and his Drold 
U Panic Penguin 

D Paperboy 

EI Phantom 

5 Pin Point 

0 P.0.D, 

E Pogo Pefa 

EI Powerball 

EG Power Pack I 

U} Power Pack (nou) 
O Project Nova 

DO Prospector Pete 

DO Rescus from Zylon 
D Rockman 

D $aboteur 


D Siippary Sid 
D Snooker & Poot 


DaTESTEIR 45, 8500 








ee | 


Musicsynthesizeı 
29,90 Kikstart 


























29,90 e een 9,9 DU Turbo Accaunte (deutsch) 
25,90 DI Spead King 990 U Turbo Cale 
990 DO Spare 990 DD Turbo-Tape 
90 DSpons 24,90 U Tutti Fruml 3% 
30 DSai 9,90 GC Tycoon Tex 19,90 
9480 iD] Saum 90 U Uklity (dautsch) 29,90 
35,99 U Star Commander 19,90 U Vogas Jackpot 3,90 
14,90 U Star Events 25,90 U Video Moanies 9,9 
9,90 D Starforce Noye 9,90 U Vokabel (deutsch} 29,99 
24,90 DD Steve Davis Snooker 29,90 DI Wimbledon 29,90 
‚90 Storm 3,90 U Winter Evante 24,90 
28,90 DD] Strast Olympics 9,90 D3 Winter Olympics 27,90 
9,990  D) Summer Events 29,90 DI World Cup Carnival 239,90 
9,9 DI Superhits 19,90 DI Xadum 9,0 
26,90 L[] Tazz 19,90 D) Xargon Wars 9,0 
14,99 DU Terra Nova 28,W DI Yis Ar Kung Fu 29,90 
198,90 DI Text (deutsch) 290 DZp 9,0 
19,39 D Thai Boxing 19,90 
24,99 U The Magfclan‘s Curse 24,90 Für Plus 4 (erweiterter C-16) 
19,90 Li The Retum of Rockman 9,0 
22,90 DI The Wizzard and Prinzeus u“ DACEN Disk 39,90 
9,90 DI Thrust 9,0 _D Krossue Disk 39,90 
29,90 DI Tomb of Tarrabash 19,9 U Air Combat Emulator Cass, 35,0 
8,90 U Traiiblazer 29%  D Jump Jet ass. 39,90 
9,90 HI Triple Dacker 1 90 U Strip Poker Casa. 19,90 
19,90 DI Triple Decker 2 90 DACE. Disk 39,90 
20 D Trizons 14,M U) Mercanary Dick 35,90 
2 1,3, Batensysteme, Denisste 45, 8500 Nürnberg 80 
45,90 
15,90 
so Absender 
29,90 
19,90 
19,90 
25,90 
90 
2 Name, Vorname 
‚30 
25,90 
25,90 
24,90 
99 
1090 Straße, Hausnummer 
1,90 
9,0 
‚90 
“er 
s%0 PLZ,Or Unterschwil“ 


NOT 1 oX=Y ge ram K-1 Fan oks u Be 2:5: 72212 




















BE PROSTRAHHNE 


S13F8 
>1400 
>1408 
>1410 
>1418 
>1420 
31428 
>1430 
>1438 
>1440 
>1448 
>1450 
»1458 
>1460 
31468 
31470 
>1478 
>1480 
31488 
>1490 
>1498 
>1AA0 
>14A8 
>14B0 
>14B8 
>14C0 
>14C8 
>14D0 
>14D8 
>14EO0 
>14EB 
>14F0 
>14F8 
>1500 
>1508 
>1510 
>1518 
>1520 
31528 
31530 


‚1538 


31540 
1548 
>1550 
21558 
21560 
21568 
>1570 
>1578 
>1580 
21598 
>1590 
21598 
»ı15A0 
>15A8 
>15B0 
>15BB 
>15C0 
>15C8 
1560 
>15D8 
>15E0 
»15E8 
»15F0 
»15F8 
>1600 
>1608 


DO 91 


»161A AU 28 


>1618 
>1620 
21628 
>1630 
1638 
>1640 
>1648 
>1650 
>1659 
1660 
31668 
>1670 
»1678 
1680 


24 


Do 91 
AO SD 
DO 91 
E6 DO 
10 03 
86 15 
FD CA 
AD 49 
0B 17 
ca 91 
91 DO 
AO 50 
sı m 
10 03 


>1638 
»1690 
>1698 
>16A0 
>16A8 
>16B0 
>16B8 
>16C0 
>16c8 
»>16D0 
>16D8 
216E0 
>16E8 
>16FO 
>16FB 
>1700 
>1708 
>1710 
>1718 
>1720 
>1728 
>1730 
>1738 
31740 
31748 
>1750 
>1758 
>1760 
>1768 
>1770 
31778 
>1780 
>1788 
31790 
31798 
>17A0 
>17A8 
>17BO 
>17B8 
>17C0 
>17C8 
>17D0 
>17D8 
>17EO 
>17E8 
>17F0 
>17F8 
>1800 
>1808 
>1510 
>1818 
1820 
>1828 
31830 
>1838 
31840 
>1848 
>1850 
31858 
1860 
>1868 
1870 
1878 
>1880 
31988 
>1890 
71898 
>18A0 
>18AB 
>18B0 
»18B8 
>18C0 
>18C8 
>18D0 
>18D8 
>1BE0 
>18E8 
>18F0 
>18F8 
>1900 
>1908 
>1910 


59 
7B 


EA 
33 
03 


BD 72 03 


::03 


::80 


our ar en ea ne 
“7 ee vu 
= 


>1918 
>1920 
21928 
31930 
>1938 
>1940 
>1948 
>1950 
>1958 
>1960 
>1968 
>1970 
31978 
>1980 
31988 
21990 
>1998 
>19A0 
>19AB 
>19B0 
>19B8 
>19C0 
J19CB 
>19D0 
>19D8 
>19E0 
>19E8 
>19F0 
>19FB 
>1A00 
>1A08 
>1A10 
yıRı8 
>1A20 
>1A28 
>1A90 
>1A38 
>1A40 
>1A48 
>1ASO 
>1A58 
>1A60 
>1A68 
>1A70 
>1A78 
>1ABO 
>1A88 
>1A90 
>1R98 
>1AAO 
>1AAB 
>1ABO 
>1ABB 
>1ACO 
J1ACB 
>1ADO 
>1ADB 
>1AEO 
>1AEB 
J1AFO 
>IAFB 
>1B00 
>1808 
>1B10 
>1B18 
>1B20 
>1B28 
>1B30 
>1B38 
>1B40 
>1B48 
>1B50 
>1B58 
>1B60 
>1B68 
>1B70 
>1878 
>1B80 
>1B88 
>1B90 
>1B98 
>1BAO 


c8 
c2 


91 


91 D2 CB A9 


A9 


C16 - SA 2/89 





>1BAB 
>1BB0 
>1BB8 
>1BC0O 
>1LBCB 
21BDO 
?1BD8 
>1BEO 
>1BEB 
>PıBFÜO 
>iBF& 
>1C00 
>1C08 
?P1C10 
>LC1E 
>1C20 
>1C28 
>21C30 
>»1C38 
>1C40 
»1C48 
>1C50 
>1C5B 
»iC6D 
>1C68 
21078 
»1078 
>21C80 
>1C68 
»1C90 
>1C98 
>ICAQ 
»1CAB 
»i1CB0 
>iCB8 
S1CCO 
>1CCH 
P1CHO 
»1CD8 
>ICEO 
>LCEB 
>iCFO 
>31CF8 
>1D00 
>1D08 
21010 
>1D18 
>1D20 
>1D28 
>1D30 
»1D38 
»1D40 
>1D48 
21050 
>ı1D58 
>1D60 
>1D68 
1070 
>1078 
>1D80 
>1D88 
21090 
»1D98 


47 8D 11 FF AS 


FF AO 
FF 20 
00 04 
FF 20 
6D iD 
ca a9 
91 D2 
ca A9 
91 D2 
ca 29 
91 D2 
20 6D 
1D 4C 
A9 6B 
90 72 
06 ES 
20 91 
03 91 
2A 91 


»1DADU 80 DO 


>1DA8 
>1DBO 
>1DH8 
21DC0O 
»inca 
>1DDO 
>ıDD8 
>1DEO 
>1DEO 
>1DFO 
>1DF9 
>1E00 
>LEOS 
>LELO 
>1E18 
>1E2D 
>1E2B 
»LE3O 


8C 00 
ı1C EE 
F2 A9 
1D 20 
01 29 
91 D2 
29 A9 
91 D2 
sı 29 
91 D2 
6D iD 
20 ‚6D 
1c'20 
DO A9 
a9 27 
BO 67 
A0 02 
Ao 29 
a0 2B 
AG 52 
A5 DO 
Ao 01 
Ag 26 
91 D2 
AO 2A 
A9 28 
91 D2 
AO 53 
1C A5 
dı 20 
01 04 
03 06 
01 60 
c3 00 
FF 60 
Fo 19 
3E 03 
20 EA 
47 03 
A9 80 
27 88 
E& 19 
FD 88 
26 C6 
27 C6 
27 29 
0C EE 
3A FO 
8D 3E 
20 ac 
0C 8D 
7C 03 
03 Ac 
0C 8D 
7B 03 
19 60 
FD CA 
DO 20 
DO 03 
49 AD 
4c 08 
EO 1D 
4C 77 
71 09 
1D AO 
Fo ı5 
ıB C9 
c9 BE 
2C 1E 
85 DI 
03 A9 
20 78 
DO 96 
c9 03 
04 DO 
03 FÜ 
DO 03 
03 29 
A9 80 
60 ac 
EA EA 
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DO :: 
DO :: 


on 
ac 
85 
1D 
c9 
02 
4B 
ac 
29 
00 
60 


EA 


ED TE rc ze Tr 
Pre TE er? 
oO 
DR} 


>1E38 
>1E40 
»1EAB 
>1ESC 
>1E5B 
»1E60 
»>1E6B 
>1E70 
>1E78 
>1E90 
>1E88 
>1E9D 
>1E9B 
>1EAO 
>1EAB 
>1EBO 
>1EBB 
DLECO 
>LECEB 
>1EDD 
>1EDB 
>LEEO 
>1EES 
>LEFO 
>1EFS 
>1F00 
>ıFo8 
>ır10 
>ıF18 
>1P20 
>1F28 
>1F30 
>1F38 
>1Fa0 
>1F48 
>iF50 
>1F58 
>1F60 
>1F68 
>1LF70 
>1F78 
>1F80 
>1FBB 
»ıFS0 
I1F98B 
>1FAO 
>1FAB 
>1FBO 
>1FBEB 
>LFCO 
>1FC8 
>1FDO 
>1FDB 
>1FEO 
>1FEA 
>1FFO 
>1FFB 
>2000 
>2D08 
»2010 
>2018 
>22020 
22028 
>2038 
>2038 
2040 
2048 
22050 
>2058 
>20650 
»2068 
2070 
>2078 
>208D 
>208B 
22090 
2098 
>20A0Q 
>20AB 
>20B0 
?20B8 
r20C0 


EA 


EA 


PROERAMME BE 


EA EA ::3E 
ER ER ::46 
ER EA ::4& 
ER EA ::56 
ER EA ::5E 
ER ER ::66 
ER EA ;:6E 
EA EA ::76 
EA EA ::7E 
EA ER ::86 
EA EA ::BE 
Eh ER ::96 
EA EA ::9E 
ER ER ::A6 
EA EA ::AE 
EA EA ::B6 
EA EA ::BE 
EA EA ::C6 
EAEA :: 

EA EA ::D6 
EA EA ::DE 
ER EA ;::E6 
EA EA ::EE 
EA EA ::F6 
EA EA ::FE 
EA EA 1:07 
EA EA ::Of 
EA ER ::17 
EA EA ::ı1F 
EA EA ::27 
EA ER ::2P 
EA ER ::37 
EA EA ::3P 
EA ER ::ı47 
EA ER ;:4F 
EA EA ::57 
ER EA ::5F 
EA ER ::67 
EA ER ::6F 
EA EA ::77 
ER ER ::7F 
EA EA ::87 
ER EA ::8F 
EA ER ::97 
EA EA ::9F 
EA ER ::A? 
EA EA :;AF 
EA ER ::B? 
EA ER ::BF 
EA EA ::C7 
ER EA :: CF 
EA ER ::D7 
EA EA ::DF 
EA EA ::E? 
ER EA ::EF 
EA ER ::F7 
EA EA ::FF 
19 FF ::56 
08 $D ::BA 
DO F2 ::6B 
FF 20 2:90 
20 99 ::C1 
80 0D ::36 
BI 3E ::A2 
ES al ::54 
81 01 ::EC 
01 01 ::8C 
01 D1 ;:94 
01 01 ::9€C 
01 01 s:Aq4 
iE IF ;::06 
30 30 ı:4C 
23 24 ::83 
20 20 ::9B 
30 30 :: 

20 20 ::Bl 
20 20 ::38 
20 20 ::40 
20 20 ;::48 
20 20 ::50 
20 20 ::C9 
20 20 ::60 


2008 
>20D0 
>20D8 
>20E0 
>20E8 
>20F0 
>20F8 
>2100 
>2108 
>2110 
>2118 
2120 
>2128 
2130 
>2138 
22140 
»2148 
2150 
»2158 
22160 
2168 
>2170 
>2176 
>2180 
>2188 
>2190 
2198 
>21A0 
>21A8 
>21B0 
>21B6 
>21C0 
>21C8 
»>21DQ9 
>Z1DB 
»Z1E0 
>21E8 
>21F0 
»21F8 
»2200 
>2208 
>2210 
>2218 
»2220 
»2228 
22230 
»2236B 
>2240 
22248 
»2259 
22259 
>2260 
22268 
2270 
22278 
>2280 
>»2288 
>2290 
22298 
>22A0 
>22A9 
>2280 
>22B8 
»22C0 
»22C8 
>22b0 
2208 
>22E0 
>22E8 
>22F0 
>22F8 
2300 
23086 
2310 
>2318 
»2320 
>2328 
>2330 
»2338 
»2340 
>2348 
>2350 


20 20 
IF 20 
20 20 
20 04 
09 09 
09 0% 
09 09 
09 09 
09 OA 
20 20 
20 20 
20 20 
20 20 
20 04 
56 5C 
SC 5C 
Sc 5C 
sc 5C 


67 
20 
20 
09 
09 
09 
09 
09 
20 
20 
20 
20 


SE 66 


::?4 
22:99 
::78 
::4E 
rrdc 
154 
rel 
165 
role} 
::Bi 
::B9 
::C1 
::C9 








BE PNROSRAMME 


>2358 
>2360 
2368 
23709 
2378 
»2389 
22388 
>2390 
>2398 
>23A0 
>23A8 
>23B0 
2388 
>23C0 
>23C8 
>23D0 
>23D8 
>23E0 
>23EB 
>23F0 
>23F8 
>2400 
>2408 
>2410 
>»2418 
2420 
»2428 
>2430 
>»2438 
>2440 
2448 
»2450 
>2458 
22460 
>»2468 
>2470 
22478 
>2480 
»2488 
2490 
22498 
>24A0 
>24AB 
>24B0 
>24BB 
>24C0 
>24C8 
>24D0 
>24DB 
>24E0 
>24EB 
>24F0 
>24F8 
22500 
22508 
22510 
22518 
22520 
22528 
>2530 
22538 
2540 
22548 
>2550 
2558 
22560 
22568 
22570 
»2578 
»2580 
»2588 
2590 
22598 
>25A0 
>25A8 
>25B0 
>25B8 
>»25C0 
>225C8 
225D0 
»25D89 
>25E0 


20 
09 


09 


09 
09 
09 
20 
20 
20 
20 
20 
5C 
Sc 
sc 
sc 
sc 
20 
20 
20 
20 
20 
06 
06 


20 
09 
09 
09 
09 
09 
20 
20 
20 
20 
20 
5C 
5C 
5C 
sc 
Ssc 
20 


8D 


083 09 
09 09 
09 09 
09 09 
20 20 
03 20 


20 20 :: 


20 20 :: 


20 20 ;: 
ZU 20 
03 90 13 


SG 5C : 


SE IC. Hr 
S0 5C 3; 
SC 56 :: 


08 0E :: 


>25E8 
>25F0 
>25F8 
22600 
>2608 
>2610 
>2618 
2620 
>2628 
22630 
22636 
>2640 
>2648 
22650 
»2658 
22660 
22668 
72670 
»2678 
»2680 
2688 
32690 
>2698 
>26A0 
>26A8 
>26B0 
»26B8 
226C0 
?26C8 
>26D0 
>26D8 
>26E0 
>26E8 
»26F0 
»+26F8 
>2700 
»2708 
>2710 
>2718 
2720 
»2728 
22730 
+2738 
2740 
>2748 
>2750 
>2758 
2760 
?2768 
>2770 
22778 
32780 
»2788 
>2790 
>2798 
>27A0 
>27A8 
>27B6 
>27B8 
227C0 
227C8 
>27D0 
>27D8 
>27E0 
2768 
»227F0 
>227F8 
>2800 
>2808 
2810 
»2818 
>2820 
>2828 
?2839 
>2838 
>2840 
»2848 
2850 


>2858. 


>2860 
22868 
>2870 


8D 
0E 
04 
8er 
8D 
OF 
25 
06 
BD 
ar 
EO 
99 
OF 
4E 
60 
EA 
EA 
EA 


58 
8D 
8D 
OD 
AR 
8D 
AD 
OE 
81 
B9 
OD 
81 
88 
oc 
EA 
ER 
EA 
EA 
EA 
EA 
ER 
EA 
EA 
EA 
EA 
EA 
EA 
ER 
EA 
EA 


80 FB ::DF 
OF A9 ::53 
0D 80 ::36 
2F GE ::3A 
80 IF ::49 
OP 0 ::8C 
OD AD ::2D 
A6 0E ;:DC 
80 21 ::56 
0D BY ::71 
80 DE ::2E 
99 21 ::40 
03 8D ::5D 
4D 0C ;: 

ER EA ::DC 
EA EA ::6E 
EA EA ::76 
EA ER ::7E 
EA EA ::86 
EA ER ::96 
EA EA ::96 
EA EA ::9E 
EA EA ::A6 
EA EA ::AE 
EA EA ::B6 
EA EA ::BE 
EA EA ::C6 
EA EA ::CE 
EA EA ::D6 
EA EA ::DE 
EA EA ::E6 
EA EA ::EE 
EA ER ::T6 
EA EA :: FE 
ER EA ::06 
03 9D ::05 
Fa A9 ::0C 
03 8D ::6D 
66 BD ::66 
°D 00 ı;:DA 
0A 9D :;F4 
00 AI :;24 
OF DO ::A9 
D2 FF ::ıB 
6B 27 ::2B 
99 00 ::4E 
0OE B9 ::0A 
DO ES ::Ea 
76 76 ::D8 
ROoNtG =:I2R 
76 76 ::ı37 
7676 ::3E 
76 76 ::47 
20 20 ::93 
20 20 ::3F 
20 20 ::47 
20 20 ::4F 
20 20 ::57 
70 63 ::C9 
1iF 20 ::2D 
67 SE ::32 
20 20 ;:908 
20 20 ;;7F 
20 20 ::E1 
20 20 ::8#F 
20 20 ::97 
20 20 ;:9F 
20 20 ::A& 
68 1B :;EF 
6A 23 ::FD 
20 20 :;48 
20 20 ::C8 
20 20 :;DO 
20 20 ;::32 
20 20 ;:E0 
20 20 ::E8 
20 20 ::FO 
20 20 ::F& 
20 60 ::5A 
N a 
6A IF ;:46 
iF IE ;:8F 


2878 
28890 
>2888 
>2890 
22898 
Y2BAO 
>28A8 
>28B0 
>28B8 
>28C0 
>28C8 
>28D0 
>28D8 
>228E0 
>2BEB 
»28F0 
2288 
>2200 
»2908 
>2910 
»2918 
»2920 
22928 
22930 
>2938 
22940 
22948 
22950 
22958 
>2960 
22968 
22970 
22978 
>2930 
»2988 
22990 
>22998 


2290 


»29A8 
>229B0 
»29B8 
>29C0 
>29C8 
>29D0 
»29D8 
>29E0 
>29E8 
>29F0 
23ER 
»2A00 
>2A08 
>2210 
>2A18 
>2A20 
>2A2B 
>2A30 
>2A38 
>2A40 
>2A48 
>2A50 
22A58 
260 
I2A68 
>2A70 
>2A78 
>2AA0 
>2A8B 
»2A90 
>2A98 
>2ARO 
>2ARAB 
>2ABoO 
>2AB8 
>2ACO 
>2AC8 
>2ADO 
>2ADB 
>2AEO 
>2AEB 
>2AFO 
>Z2AFB 
>2BOD 


ir 
20 


20 
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+ 
* 


on 








>2B08 
>2B10 
>2B18 
>2B20 
>2B28 
>2B30 
>2838 
>2Ba0 
>2B48 
>2B50 
>258 
>2B60 
>2868 
>2870 
32879 
>2B80 
>2B88 
>2B90 
>2B98 
>2BAD 
>2BAB 
>2BBO 
»2BE8 
»28C0 
>2BC8 
>2BDO 
>2BDB 
>2BEO 
>22BE8 
>2BFÜ 
>2BF& 
»2C00 
>2C08 
>2C10 
>2C18 
22020 
»2C28 
>2C30 
32038 
>2C40 
22048 
>2C50 
>2C58 
22060 
>2C68 
>2C70 
>2C78 
»2C80 
>2C88 
>2C90 
22098 
>2CA0 
>2CA8 
>2CB0 
>2CB8 
>»2CC0 
>2CcB 
>2CDO 
>2CD8 
>2CEO 
>2CE8 
»2CF0 
>2CF8 
>2D00 
>2D08 
>2D10 
>2018 
>2D20 
>2D28 
>2D30 
>2D38 
>2D40 
>2D48 
>2D50 
>2D58 
>2D60 
>2D68 
>2D70 
»2D76 
>2D80 
>2D88 
>2D90 


ER EA ER EA ER 
EA EA EA EA EA 
ER EA ER ER EA 
EA EA EA ER ER 
ER ER EA EA EA 
EA EA EA ER EA 
ER ER EA EA ER 


Cis - SA 2/89 


I 20 :: 


20 


>2D98 
Y2DAO0 
>2DAB 
>2DB0 
>2DBB 
>2DC0 
>2DC8 
>2DDO 
>2DD8 
>2DEG 
N2DE8 
>2DFO 
>2DF8 
>2E00 
>2E08 
>2E10 
»2E18 
>2E20 
»2E28 
»2E30 
»2E38 
>2EA0 
>2E48 
>2E50 
»2E58 
>2E60 
>2E6B 
22870 
»2E76 
>2EB0 
>2E88 
>2E90 
»>2E98 
>2EA0 
>2EAB 
>2EBO 
>2EBA 
>2ECO 
>2ECH 
>2EDO 
>2EB8 
>2EEO 
>»2EBA 
»2EFO 
>2EFB 
>2F0D 
>2F08 
>2F10 
»2F18 
»2F20 
3228 
>2F30 
>2F33 
>2F40 
>2F4R 
»2P59 
>2F58 
>2F60 
Y2F6B 
>2F70 
32778 
>2FBO 
>2F88 
>2F90 
>2F98 
>2FAD 
>2FAB 
>2FB0 
>2FBB 
>2FCO 
>2FCB 
>2FDO 
>2FDB 
>2FED 
>2FEB 
>2FFÜO 
>2FF8 
>3000 
>3008 
>3010 
23018 
>3020 


BESmBSSApEBBBEBSERBES 
SEHSBSSEFEBESEEBEBSBB 


51 


| 
“ao 


Di 


20 


BONPSBERESESEEEBE 


SBBERESEEBSER 


PROSRAMHDIE Ba 


ER 


ER :: 
BA : 


ER :: 


ER ::ı 
ER :; 


91: 


45 
E8 


AD :: 


91: 


49 :: 
20 :: 


20 :: 
ca : 


>3028 
>3030 
>3038 
>3040 
>3048 
>3050 
>3058 
>3060 
>3068 
>3070 
>307B 
>3080 
>3088 
>3090 
23098 
>30A0 
>30A8 
>30B0 
>3088 
>30C0 
>30C8 
>30D0 
>30D08 
>30E0 
>30E8 
>30F0 
»>30F8 
3100 
3108 
>3110 
>3118 
>3120 
>3128 
>3130 
>3138 
3140 
>3148 
>3150 
>3158 
>23160 
>316B 
>3170 
>3178 
>3190 
3198 
>3190 
22198 
>31A0 
>31AB 
>231B0 
>31B8 
>31C0 
>31C08 
>31D0 
>3108 
>31E0 
>31E8 
>31F0 
>31 FB 
>3200 
>3208 
>3210 
>3218 
23220 
23228 
23230 
>3238 
>3240 
»3248 
3250 
>2258 
>3260 
23268 
3270 
33278 
73280 
23288 
>3290 
23298 
>32A0 
>32R8 
»32B0 


20 
00 
238 
FO 
CI 
3B 
2E 
3° 
2E 
si 
85 
83 
AS 
AD 
2E 
3B 
29 
03 
AD 
F7 
E2 
2A 


Di 
8D 


20 Di 
8D 42 
38 03 
30 AD 
ac 7D 
91 EO 
AD 3D 
Bi EO 
01 91 


32 
03 
c9 
32 
30 
AD 
2E 
8D 
EO 
69 
20 
EO 
AO 
AD 
88 
E0 
AD 
28 
03 
29 


a9 


IEC 
::0A 


i22B 


::76 


De Tuer Tr Teer Pe 
.- ne. 
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BE PROSCN/ALMLIE 


>32B8 
>32C0 
>32C8 
>32D0 
>32D8 
>32E0 
>32E8 
>32F0 
>32F8 
>3300 
3308 
>3310 
>3318 
23320 
3328 
>3330 
>333I8 
23340 
23348 
3350 
23358 
23360 
23368 
23370 
>3378 
3380 
>3388 
23390 
>3398 
>233A0 
>33A8 
>33B0 
»33B8 
>33C0 
>233C8 
>33D0 
>33D8 
>33E0 
>33E8 
>33F0 
>33FB 
>3400 
>3408 
>3410 
>3418 
>3420 
23428 
>3430 
>3438 
»3440 
>344B 
>3450 
»3458 
>3460 
23468 
23470 
3478 
»3480 
3488 
>3490 
23498 
>34AD 
>34AB 
>34B0 
>34B8 
>34C0 
>34C8 
>34D0 
>34D8 
>34E0 
>34E8 
>34F0 
>34F8 
>3500 
>3508 
23510 
235186 
>3520 
>3528 
>3590 
23538 
23540 
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EA EA 


00 
c8 
99 


3B 2E 
oF DO 
2E A4C 
91 E4 
EA ER 
EA EA 
EA EA 
ER ER 
ER EA 
ER EA 
EA EA 
EA ER 
EA 
EA 
ER 
EA 
ER 


ESEREBBEE 


BEE 
5 


ca 
Fä 
BC 
91 
EA 


1:86 
::96 
83 
’ıCE 
ı:0E 
::FA 
‚+02 
::0A 
»:12 
ıFE 
23 
:2B 
:1ı39 
:3B 
:43 
:4B 
33 
:5B 
:63 
t:6B 
ı:73 
:7B 
:89 


EL ErTErT 


33548 
23550 
23558 
33560 
>9568 
23570 
3578 
>35B0 
3588 
23590 
23598 
>35A0 
>35A8 
>35B0 
>35B8 
>35C0 
>235CB 
>35D0 
>35D8 
>235E0 
>35E8 
>35F0 
>35F8 
>3600 
23608 
23610 
23618 
>3620 
3628 
+3636 
3638 
23640 
23648 
23650 
23658 
23660 
23668 
>3670 
23678 
3680 
>3688 
>3690 
23698 
>I6A0 
»36A8 
>36B0 
36B8 
>36C0 
23608 
>36D0 
>38DB 
>36E0 
>36E8 
>236F0 
>36F8 
>3700 
>3708 
3710 
>3718 
>3720 
>3728 
>3730 
23738 
>3740 
>3748 
3750 
23758 
>3760 
37689 
>3776 
23778 
>3780 
>3788 
>3790 
>379B 
237A0 
>37AB 
>37B0 
>37B8 
>37C0 
>37C8 
>37D0 


EA ER ER ER EA 


EA 
EA 
ER 
EA 
EA 
ER 
EA 
EA 
EA 
EA 
EA 
EA 
ER 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 


EA 
ER 
ER 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
ER 
EA 
EA 
EA 
EA 


ER 


ER 
EA 
EA 
EA 
EA 
EA 
ER 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 


EA 


EA EA 
ER EA 
EA EA 
EA EA 
EA EA 


EA EA 


ER ER 


EA ER :: 


EA EA 


EA ER :: 


De Peer Pre? 
ur 


- 0... 
ae 48 pm Ar me Aa hr 


mens 


om 
a 


:9E 


an 0 


>37D8 
>37E0 
>37E8 
337F0 
937Fd 
>3800 
>3808 
>3510 
>3818 
>3820 
>3828 
>3830 
»3838 
>3840 
>3848 
33350 
>3858 
>3860 
33868 
33870 
>3878 
>3880 
>3888 
>3890 
>3898 
>38A0 
>39A9 
>98B0 
>38B8 
>38C0 
>38C8 
>38D0 
>38D8 
>38E0 
>38E8 
>38F0 
>38F8 
93900 
>3998 
>3910 
>3918 
33920 
33928 
>3930 
23938 
>3940 
>3948 
>3950 
33958 
>2950 
23968 
23970 
33978 
33980 
33988 
>3990 
>3998 
>39A0 
>39AB 
>39B0 
>39B8 
>39C0 
>39C8 
>39D0 
>39D8 
>39E0 
>39E8 
>a9FO 
>39F8 
>3A00 
>3A08 
>IALO 
>3A18 
>3A20 
>3A2B 
>3A30 
>3A38 
>3A40 
>3A4B 
>3A50 
»3A58 
>IA6O 


ER 
EA 
ER 
01 
EA 
AA 
AA 
AK 
B4 
1E 
B4 
090 
1E 


EA EA EA EA EA ER ::F? 
EA ER EA EA EA EA ::FF 
EA EA EA EA EA EA ::07 
EA EA ER ER ER EA 2:26 
ER EA ER ER ER ER ::17 
BF BF B5 B5 BAM ::C2 
FF FF 55 S5 00 00 ::DE 
FE FE SE 5E 1E IE ::04 
Ba Ba BA Ba BA BA ::AQ 
ıE 1E 1E 1E 1E IE ::90 
BS BS SF BF AR AA ::9A 
55 55 FF FF AA AA :;A6 
SE SE FE FE AA AA ::3C 
BF AA AA BF B5 BA ;:DA 
FF AA AA FF 55 00 :;:6E 
FE AA AA FE 5E IE ::CC 
FC AA AA FC 50 00 ::36 
3F Ak AA IF 05 00 ::F6 
af 3D FD FF FF FF ::57 
FF 7D ?D FF FF D7 ;:7P 
FC 7C 7F FF FFFRF ::9A 
DD 11 00 00 44 77 ::24 
FF FF 3F 3P OF 03 ::EC 
FF. FFÜFFIFF FF 33 ::44 
FF FF FC FC FO 30 ;:AA 
3F: 3E FE FF FF FF ;::6F 
FF BE BE FF FF D? ::67 
FC BC BF FF FF FF ::B2 
FF FF 3F 3F OF 0C ::64 
FF FE FFFFFF CC ::3C 
FF EF FC FC FO CO ::5A 
FF FF 55 55 FF FF ::96 
40 7F 01 41 ?7F 00 ::D1 
40 40 40 41 7F 00 ::18 
41 41 di 41 ?F 00 ::2C 
41 7F 70 4C 43 00 ::r5 
48 78 48 41 7F 00 ::58 
00 00 00 00 00 00 ::39 
40 40 40 41 7F DD ::00 
00 90 00 00 00 08 ::;49 
68 08 08 08 1C 00 ::Di 
41 41 41 24 18 00 ::AB 
3F 3E FE FF FF FF ::16 
FF BE BE FF FF D? ::; FO 
FC BE BF FF FF FE :.:0B 
DD 11 00 00 44 77 ::ES 
FF FF 38 3F OF 0C ::F5 
EF FF EF FF FF CC ::cCD 
EF EFF EC FC.FO,CDT..:EB 
00 00 00 00 00.00 ::99 
10 090 00 10 00 00 ;:31 
00 00 00 00 00 00 :;A9 
00 00 00 00 00 00 ::B1 
41 41 41 41 7F 00 ::C5 
09 11 21 01 01 909 ::DF 
01 7F 40 40 7F 00 ::82 
01 1E 01 01 7E 00 ::49 
40 4C 7F 0C DC 00 ::80 
40 7E 01 01 7E 00 ::15 
40 7C 42 41 3E 00 ::DA 
02 04 1F 04 04 00 ::57 
41 3E 41 41 3E 00 :: Fl 
41 3F 01 01 7F 00 ::05 
2B 2B AA AR AA AA ::98 
EB EB AA AA AA BE ::60 
EB ES AA AA AA AR ::95 
AA AR AB AF AD AD ;:59 
AR AA AA EBEB FF ::1A 
AR AA EA FA 7A 7A ::69 
AF AB 2B 2A OA OA ::63 
55 55 FF FF AA AA ::A7 
FA EA ES AB AD RO ::26 
17 17 55 55 55 55 ::A4 
D7 D7 55 55 55 70 s:1C 
Da na 55 55 55 55 ::C0 
55 55 57 5F SE SE ::2B 
55 55 55 D7 D? FF ::78 
55 55 DS F5S BS B5 ::4E 
SF 57 17 135 05 05 ::51 
AA AA FF FF 55 55 ::32 
F5 D5 Da 54 50 50 ::BO 
2B 2B AA AA AA AR ::29 


Ci6 - SA 2/89 











>3A6B 
>3A70 
>3aA7B 
>3ABO 
>3AB8 
>3A90 
>3A98 
>3AAO 
>3AA8 
>3ABO 
>3AB8 
>3ACD 
>3ACB 00 00 
>3ADO 00 00 
>3AD8 
>3ARO 
>3AE8 
>3AFO 
>3AF8 
>3B00 
>3B08 
>3B10 
»3818 
>3B20 
>3B28 
23830 
>»3B38 61 61 
3840 
>3848 
>3B50 
>3B58 
>3B60 
>3B68 
>3B70 
>3B78 
>3B80 
>»3B88 41 
>3890 41 
»3898 
>3BAQ 00 
>3BAB 
>3BB0 1C ıC 
>3BB8 
>3RC0 
>IBCB 
>3BDO 
>3B08 
>3BEO 
>3BEB 14 
>3BFO 
>3BE8 
>3C00 00 23 
>3C08 
>3C10 00 
»3C18 00 00 
>3C20 00 
»3C28 
>3C30 06 06 
>3C38 
>3C40 06 06 16 iA 
>3C4B 





Hier haben wir einen Lecker- 
bissen für alle, die einen Rech- 
ner mit 64K-RAM und Floppy 
ihr Eigen nennen: Ein Textpro- 
gramm, das 80 Zeichen pro 
Zeile darstellen kann! Ein- 
schränkend muß aber gesagt 


C16 - SA 2/89 


BE ::Fi >3C50 00 00 AA AR 
BA ::26 >3C58 09 00 AB AB 
AD ::EA >3C60 24 24 24 24 
EFSICAB >3C68 00 00 00 00 
7A ::FA >3C70 06 06 06 06 
OA :;F3 >3C78 24 24 24 24 
AA ::37 >3C80 06 06 06 06 
AO ::B6 >3C88 00 00 24 24 
00 ::96 »3C90 00 08 06 06 
00 ::52 >3C98 24 24 24 24 
00 ::0E >3CAD 06 06 06 06 
00 ::6A >»3CAB 24 24 25 25 
DO ::1E >3CB0 19 19 59 59 
00 ::96 »3CH8 06 065 56 56 
00 ;:C2 >3CC0 00 00 2A 2A 
00 ::36 »3CCcB 00 00 AA AA 
08 :;BA >3CD0 00 00 AB AB 
DO ::BD 23CD8 24 24 24 24 
00 :;2A >ICED 00 00 00 00 
00 ::B7 >3CE8 06 06 16 16 
00 ::9E »3cro 24 24 24 24 
00 ::8A »3CF8 00 00 00 008 
00 1:67 >3D00 06 06 416 16 
00 ::58 >3D08 00 00 DA DA 
00 ::9B >3D10 OO OO AA AA 
00 ;:E5 >3D18 00 00 80 89 
00 ::85 »3020 25 25 26 26 
00 ::B6 >3028 55 55 AA AR 
00 ::EO >3D30 AD AD 80 BO 
00 3; »3D38 25 25 24 24 
00 2:61 >3D40 568 68 5A 5A 
00 ::FA >3D48 00 00 00 00 
00 ::7B >3D50 00 009 OA OA 
60 ;:9C >3D58 00 00 AA AA 
00 ı:EB >3D60 00 00 AA AA 
00 :;:07 >3D68 24 24 25 25 
00 ::BC »3D70 00 00 55 55 
00 ::17 >3D78 24 24 25 25 
00 ::21 >3D80 00 00 00 00 
00 :;13 >3D88 DO 00 00 00 
00 ::5B >»3D90 00 00 24 24 
00 ::13 >»3D98 00 00 05 16 
00 ::A0 >3DA0 00 00 AO 80 
00 ::46 >3DA8 25 25 25 2A 
00 ::C6 >3DB0O 68 AD AO 80 
22 ::B9 >3DB8 25 25 25 24 
00 ::ı5 >3DC5 AD 68 68 SA 
66 2:49 >3DCB 60 00 009 90 
04 ::E7 >3DD0 55 40 AA 48 
22 ::3B >3DDB 55 01 Al 01 
00 ::4F >3DEO FF FF SF 67 
00 ::5F >3bE8 DF DF D7 D7 
00 ::FC >3DF0 FF FF FFFS 
24 ::25 »3Dore FF FD F6 DA 
00 ::Al >3E00 6A A9 AA AA 
06 ::0B >3E0B 7F FF 7F 97 
95 ::5D >3E10 FD F6 F6 DI 
85 ::44 »3E18 AA AA SA DS 
OA ::B5 Y3E20 7F-IE IF 57 
AO ::CO >3E28 00 00 00 00 
25 ::B8 >3E30 0C 3F 3F 3 


werden, daß man schon einen 
guten Monitor besitzen sollte, 
da das Verfahren, welches es 
ermöglicht, die 80 Zeichen dar- 
zustellen, auf einer Halbierung 
der Zeichenmatrix beruht, d.h, 
daß jedes Zeichen nur 4*8 


PROCRAMME 


55 55 00 00 ::D9 23E38 
5A 5A 16 16 ::54 »>3E40 

25 26 26 25 ::D3 >3E48 

55 AR Ah 55 ::97 >3E50 

56 A6 A6 56 ::BA »3E58 

24 24 24 24 ::C4 >3E60 

D6 06 06 06 ::94 »3E68 
24 24 24 24 ::68 >3E70 EA 
86 06 06 06 :;92 >3E78 

24 24 24 24 ::E4 >3E80 

06 06 06 06 ::B4 >3E89 

29 29 OA OA ::AC >3E90 

6A 6A A2 A2 ;:B2 »3E98 

5A 5A AB AB ::16 »P3EAO 

25 25 24 24 ::D5 >3ERB BI 
55 55 00 00 ;:51 >I3EBO 00 
5A 5A 16 16 ::CC >3EBO AE 
25 25 24 24 ::2F >IECO 

55 55 00 00 ::C3 »3ECHB 

58 58 16 16 ::E2 >3EDO 

25 25 2A 2A ::A1l »>3EDB 49 
56 55 AA AA ::Dl >3EEO A6 
SA 5A AB AO :;9F >IEEB 

29 29 25 25 ::79 >3EFO 

55 55 D1 01 ::39 >IEFB 

A AO 650 60 ::55 >3F00 

26 26 25 25 ::A3 »3F08 

80 80 AO AD ::EA >3F10 

00 00 00 00 ;: >3F18 00 
24 24 24 24 ::88 >3F20 44 
16 16 05 05 ::6B >3P28B 

80 80 AO AO ::65 »3F30 41 
29 29 25 25 :;ei »3F38 29 
55 55 00 00 ::E2 »3F40 3A 
55 55 00 00 ::EA »3F4B EC 
2A 2A 25 25 :;0D >3r50 

AI A9 955 55 ::9E >3F58 

29 29 OA OA ::?7D »3r6n 89 
55 55 AA AA ::5A »3F6B 

55 585 AR AA ::62 >3F70 

24 24 24 25 ::79 »3F78 55 
16 5A 5A 68 ::7C >3F80 3A 
80 00 00 00 :;:3D >3F08 48 
2A 2A 2A 25 ::87 »>3F90 3F 
BD 80 80 Al 1:75 >3F9B 20 
24 24 24 24 ::0B >3FA0 45 
5A 16 16 05 ::15 >3FA8 AA 
00 80 80 AO ::55 >3aFED Aal 
48 AA 40 55 ::60 >3FBB 
O1/Al.03 95. r7:CD >3FC0 43 
D9 DA F& FD ::CE »>3FCB DA 
59 AO AA Ah :;AC >aFDO 50 
D7 DF 5F 9F 4:C9 >3FD8 44 
6A DA F6 FD ::48 >3FEO E6 
AR AR AA AO ::DC »3FEB 50 
A5 9F 7F FF ;:00 >I3FFO 3A 
67 SF 7E FF ::2B >3FFB FE 
D7 D7 F? F7 1:6C >A000 41 
D7 EF7 FD FF ::34 

00 00 3F 35 ::C07 

ar 3F FF 77 ::17 ENDE DES 


- fast eine Schreibmaschine 


Punkte groß ist. Die gesamte 
Steuerung geschieht menüge- 
steuert über CGONTROL- 
Sequenzen. 

Die Funktionen und deren 
Aufruf: 

CTRL-1 = TEXT LADEN 


00 00 00 00 00 FF 57 ::27 
35 35 37 3F 00 00 00 ::D5 
27. 87177. ER 36 OF. 3P: ::D2 
57 ?7F 7F FF 00 00 00 ::27 
00 00 00 00 00 02 DA ::F4 
3P SF 3F 2A AA AR AA ::D8 
0D 00 00 00 80 AO AS :;46 
EA 60 13 3A 20 53 54 ::9F 
20 285 BY 49 5A 49 91 ::7F 
2C 59 DO BE 3E 6A 13 ::02 
20 49 AE 59 00 2b 3E ::4B 
13 3 20 AC 44 41 20 3:71 
32 39 31 00 Bi 3E 7E ::79 
3A 20 53 54 41 20 28 ::5B 
49 54 A9 91 29 2C 59 ;:18 
BB 3E 886 13 3A 20 49 ::21 
59 80 CA 3E 92 13 3A ::15 
ac 44 41 20 23 32 30 ::D6 
00 DE 3E 9C 13 3A 20 ::DE 
54 41 20 28 BY 49 54 ::09 
9} 29 2C°"59 00 EC 3E ::CD 
13 3A 20 4C 44 59 20 ::9B 
38 31 00 FB 3E BO 13 ::0F 
20 40 44 41 20 23 32 2:26 
33 8D OF 3F BA 13 3A ::Fqd 
53 54 41 20 28 BI 49 :;EC 
49 91 29 2C 59 00 19 ::3E 
c4 13 3A 20 49 4E 59 ::77 
28 3F CE 13 3A 20 AC ::97 
41 20 23 32 30 34 00 ;;97 
SF DS 13 3A 20 53 54 ::BC 
20 25 BI 49 54 49 91 ::38 
2C 59 00 46 3F E2 13 :: Ai 
20 49 4E 59 00 55 9F ::14 
13 3A 20 4C 44 41 20 :;A2 
32 30 35 00 69 3P F& ::59 
3A 20 53 54 41 20 28 ::1d 
49 54 49 91 29 2C 59 ::Di 
7C 3F 00 14 3A 20 AR ::4C 
52 20 53 43 48 4C 41 ::6D 
46 45 OD BF 3F 0A 14 ::92 
20 4A 53 52 20 53 43 ::1A 
at 41 55 46 45 00 A2 ::CA 
14 14 3A 20 4A 593 52 ::9B 
53 43 48 4C 41 55 46 ::0B 
00 B5 3F 1E 14 3A 20 ::E3 
53 52 20 53 43 48 dG ::D6 
55 46 45 00 C9 IF 28 ;:69 
3A 20 4A 53 52 20 53 ::0A 
48 AC 41 55 46 45 00 ;::EA 
3F 32 14 3A 20 4A AD ::95 
20 47 41 4D 45 80 45 ;:3F 
00 EO 3F 3C 14 3A 00 ::33 
3P 456 14 3A 00 EC IF 5:33 
14 3A 00 F&8 3F 5A 14 ::B5 
57 45 49 54 45 52 00 ::8A 
SF 64 14 3A 00 OF 82 ::CA 
24 B3 Bl C7 28 31 33 ::68 
LISTINGS (OVM) 





Es wird nach dem Namen des 
Textes gefragt, der, vorausge- 
setzt, er ist vorhanden, geladen 
wird. 

CTAL-2 = TEXT SPEICHERN 
Nach Eingabe des Namens 
wird dar Text bis zu der Zeile, 
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BEE PROGRAMME 


in der sich der Cursor befindet, 
abgespeichert. , 
CTAL-3 = SEITE WÄHLEN 
Hier kann die zu bearbeitende 
Seite angewählt werden. Da- 
nach befindet sich der Cursor 
immer am Anfang der ersten 
Zeile. I 
CTRL-4 = RÄNDER ÄNDERN 
Mit den Cursortasten können 
der linke sowie der rechte Rand 
geändert werden. Durch RE- 
TURN gelangt man wieder in 
den Text. 

CTAL5 = ZEILENFORMAT 
ÄNDERN 

Nach Aufruf dieser Funktion 
kann die Zeile, in der sich der 
Cursor befindet, auf folgende 
Arten geändert werden: 

(1) = Zeile zentrieren 

(2) = Zeile nach links ausrich- 
ten 

(3) = Nach rechts ausrichten 
(4) = Zeile nach beiden Seiten 
ausrichten 

(5) = Nichts tun 

CTRL-6 = SEITENFORMAT 
ANDERN 

Funktioniert wie Punkt 5, nur 
daß die gesamte Seite verän- 
dert wird. 

CTAL-7_ = BLOCK & 
EDITOR-FUNKTIONEN 

Hier lassen sich folgende 
Funktionen aufrufen: 

(1) = BLOCK LÖSCHEN 
Löscht einen Block. Es entsteht 
eine Lücke im Text. 

(2) = BLOCK ENTFERNEN 
Wie (1), der folgende Text wird 
aber nachgezogen. 

(3) = BLOCK EINFÜGEN 
Der Block wird ab der Zeile mit 
dem Cursor eingefügt, Der 
restliche Text verschiebt sich. 
(4) = BLOCK BEWEGEN 
Wie (9), doch der Text, der vor- 
her dort stand, wird 
überschrieben. 

(5) = TEXT LÖSCHEN 
Löscht den gesamten Text. 
(6) = SEITE LÖSCHEN 

Eine Seite wird gelöscht, ohne 
daß der Text nachgezogen 
wird. 

(7) = SEITE ENTFERNEN 
Löscht die Seite und zieht den 
Text nach. R 

(8) = SEITE EINFÜGEN 

Der Text wird verschoben. Die 


gerade bearbeitete Seite wird 
zur leeren Seite, die letzte Seite 
verschwindet. 

2 = ALLESLASSEN WIE ES 


Rücksprung zum Text 5 
CTRL-8 = DAUCKER MENÜ 
Vor dem Drucken können noch 
einige Parameter eingestellt 
werden. 

(1) = SEITENNUMMERN 
Hier kann man die Seiten- 


nummern für den Text 
einstellen, 
@) = SEITENNUMMER- 
DRUCK 


Hier kann man das Drucken 
der Seitennummem ein- und 


kann editiert werden. Mit den 
Tasten ”S” und ”L" kann die 
Tastenbelegung gespeichert 
oder geladen werden. Mit 
SPACE gelangt man zurück 
zum Text. Beim Editieren eines 
F-Tasten-Textes können alle 
Zeichen, die auch gedruckt 
werden können, Verwendung 
finden. Außerdem sind auch 
die Tasten ESC und RETURN 
möglich. Mit DEL kann das je- 
weils latzte Zeichen gelöscht 
werden. Über die Tastenkom- 
bination CBM-X gelangt man 
zurück zur Anzeige der F- 
Tasten. Jede der acht 
Funktionstasten kann mit bis 


Diese frebetent narde nit TER S8 yescheichen. 
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ausschalten, 

(3) = EINZELBLÄTTER 

Der Gebrauch von Einzel- 
platipapier wird hier ein- oder 
ausgeschaltet. 

(4) = ANZAHL DER SEITEN 
Wählen Sie hier die Anzahl der 
zu druckenden Zeilen. Der Be- 
ginn ist immer bei Seite 1 

(5) = DRUCKEN 

Der Text wird mit den einge- 
stellten Parametern ausge- 
druckt. 

(6) = ZURÜCK 

Rückkehr zum Text. 
ANMERKUNG: 

Bei Benutzung von Einzel- 
plattpapier muß das Papier nur 
ganz wenig eingezogen wor- 
den, da das Programm dies 
selbst erledigt. 

CTRL9 = FÜUNKTIONSTA- 
STENBELEGUNG 

Hier werden die F-Tasten mit 
einem Teil des Textes, der sich 
darauf befindet, angezeigt. 
Brückt man jetzt eine der F- 
Tasten, 80 wird der entspre- 
chende Text angezeigt und 


zu 127 Zeichen belsgt werden. 
Allgemeines: 

Die deutschen Zeichen können 
wie folgt erreicht werden: 

ä = SHIFT- 

ö = PFUNDZEICHEN 

ü = SHIFT-; 

Ä = SHIFT-+ 

Ö a CBM- 

Ü = SHIFT- 

8 = SHIFT-O 

& = SHIFT-3 

Um die deutschen Zeichen auf 
dem Drucker auszugeben, muß 
dieser natürlich auf den deut- 
schen Zeichensatz geschaltet 
sein (siehe Handbuch). Kann 
dies nur softwaremäßig getan 
werden, so kanın man dies vor 
dem Laden von TEXT 80 
erledigen. 

Wenn Sie die Funktionstasten- 
belegung unter dem Namen 
"AUTORUN.FUN” auf dersel- 
ben Diskette abspeichern, auf 
der sich auch die Files "TEXT 
80” und "ZEICH” befinden, 
dann wird sie automatisch 
nachgeladen. Zum Verlassen 





des Programms genügt es, die 
Taste "RUN/STOP” zu drü- 
cken. Haben Sie das Pro- 
gramm versehentlich verlas- 
sen, so können Sie durch Ein- 
gabe der folgenden Zeile im Di- 
rektmodus das Programm 
wieder starten, ohne daß dar 
Text verloren geht: 
GRAPHIC1,1:FOR!I =0T024: 
SYSPS.0,1,T$(l+ME+S):NE 
XT:GOTO100 

Eingabe von Texten: 

Bei der Eingabe von Texten ist 
noch einiges zu beachten: 
Es können nur die normalen 
Zeichen ausgegeben werden, 
also keine der Commodors- 
Zeichen. 

Der Cursor wird ganz normal 
mit den Cursor-Tasten bewegt, 
kann mit RETURN an den An- 
fang einer Zeile gesetzt und mit 
ESC um 10 Zeichen nach 
rechts bewegt werden. Durch 
CTRL-/ und CTRL-D kann eine 
Zeile eingefügt bzw. gelöscht 
werden. Mit HOME wird der 
Anfang, mit CLEAR das Ende 
eines Blocks markiert. DEL 
föscht das Zeichen links vom 
Cursor, INST fügt ein Leerzei- 
chen ein. 

Die Eingabe: 

Geben Sie zuerst den Basic- 
Teil ein, und speichern Sie ihn 
unter dem Namen "TEXT 80” 
ab. Schalten Sie nun bitte den 
Computer für ca. 30 Sekunden 
aus. Nun kann (nach dem Ein- 
schalten) der MC-Teil mit dem 
MC-Checker eingetippt wer- 
den, den Sie zu diesem Zweck 
bitte an Adresse 12680 legen. 
Dieser Teil ist mit dem Kom- 
mando 
S"ZEICH”,8,1000,15AB ab- 
zuspeichern. Zum Arbeiten 
wird TEXT 80 geladen und mit 
RUN gestartet. Nach einer kur- 
zen Initialisierung steht TEXT 
80 dann zur Verfügung. 


Programmname: TEXT 80 
Computertyp: C16/116 mit 
64K-RAM/Plus 4 mit Floppy 
Lauffählg auf; Floppy 


Besonderheiten: Lei- 
stungsfähiges Textpro- 
gramm mit 80-Zeichen- 
Darstellung 
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C-16 LISTING + CHECKSUMMEN {0C V1.0) 


10 TRAP3280 

20 IFLO-OTHENLO=1:COLORO,2:COLOR4,1:COLOR1.1 
:GRAPHIC1,1:LOAD"ZEICH”, 8,1 

30 LFLO=3THENLO=2 : RETURN 

40 FORI=1T08:KEYI.CHR$(132+I) :NEXTI:MNS=" (UP 
DOWN LEFT BIGET) +CHRS LAS) ACHRS (BO) EL EI 23 F3 


50 N$="AUTORUN,. FUN”: TRAP3190 ;60SUB3150 

60 MN$=MNE+"t{ INSTI_"+CHR$ (141) +CHR$ (27) +" HO 

ME CLEAR)” 

70 PS=5366 : PZ=5242 : 5H=5442 ; SR=-5490 : E=INT {FRE 
(0) 7/5600) *64-1:DIMT$ (E) : FORI=-1TO80O 

80 L$=L$+"{ SPACE)" :NEXTI:SP=O0;FL=1:AP=0 

906 FORI-OTOE:T$ (IJ=L$:NEXTI:$=0 ;X=0;Y=-0:ME=-0 
ıMS=INT (E/64) : LR=0 :RR=79 : PA=MS 

100 EB$="ABCDEFGHIJKLMNOPAORSTUVWXYZ{SA SB SC 
SD SE SE SG SH SI SJ SK SL SM SN 50 SP 5 a 5 


Be u. wi U Ki Ze BE wi m 


DB wu Zi eu zii „IT zii 2 m und 


2345678904-=A\*:;,,/" 

14110 EB$=EB$+"V+CHRELIA) HT FERA CI IC ITS € 
nn S-} u 

120 C$=CHR$ (0) :FORI=1T03:C$=C$+C$ :NEXTI:C$=C 
$+CHR$ (3) +CHR$ {DJ +CHR$ (7) +CHR$ (0) 

130 MID$(C$,6,3)-"wsr" 

140 XX=X*4:YY=Y*8:GSHAPEC$,XX,YY.4:DO:GETA$: 
LOOPUNTILINSTR (EBS+MN$ ,A$) 

150 GSHAPEC$,XX,YY.4 

160 EM=-INSTR(MN$,A$) : IFEMTHEN21O 

170 IFINSTRÜ"{S+ C- 37)". A$) THENAS=CHR$ [ASCL 
A$}-96) 

180 SYSPS,X,Y.A$:X=X+1:MID$(T${Y+ME+S),X, 1)“ 
AS: IFX>RRTHENX=LR: Y+Y+1: IFY=25THENSC#1 : Y+24 
190 IFSCTHENSC=0 : IFME<39THENME=ME+1 : SYSSH:SY 
SPS,0,24,T$(Y+ME+3) 

200 GOTO140 

210 DOWHEILEINSTR{CHR$ (13) +CHR$ (141) ,A$) ;A$=" 
",X=LR:Y=Y+1: 1IFY=25THENY=24:5C=1 

220 IFSCTHENSC=0 : IFME< 39 THENME=ME+1 :SYSSH:3Y 
SPS,0,24,T$tY+ME+S) 
230 LOOP 

240 DOWHILEAS="{UP}" :Ag="";Y-Y-1: IFY--1THENY 
-0:5C=1 

250 IFSCTHENSC=0 : IFME>OTHENME=ME-1:SYSSR:SYS 
PS,0,0,T$(Y+ME+S) 

260 LOOP 

270 DOWHILEA$="{ DOWN) " :A$="";Y=Y+1:1FPY=25THE 
NY"=24:5C=1 

280 IFSCTHENSC=O ; IFME< 39THENME=«ME+1:SYSSH:SY 
SPS,0,24,T$(Y+ME+S) 

290 LOOP 

300 DOWHILEINSTR("{ RIGHT LEFTI" AS) :X=X-(Ag= 
"{RIGHTY")+(AS="(LEFT)“) 

310 IFX>RRTHENX=LR: ELSEIFX<LRTHENX=-RR 

320 A$="":LOOP 

330 DOWHILEA$=-CHR$ (20) ANDX:A$="":X=X-1:01$=-T 
$ (Y+ME+5) :Q2$=LEFT$ (Q1$,X) +RIGHT$ (Q1$8,79-X) 
340 T$(Y+ME+3)=028+"{ SPACE)" :SYSPS,0.Y,T$(Y+ 
ME+S) :LOOP 

350 DOWHILEAS="{ INSTY" :A$="":O1$-T$ (Y+ME+S) : 
Q2$=LEFTS(Q1$,X) +" SPACE" +MIDE(QI$.X+1,79-X 
) 

360 T$ (Y+ME+S)=-N2$:3YSP8,0,Y,02$: ba 





!As="= ‚FORI=1T08: KEYI,*":NEXTI 

380 KEY1,KT$(6)+"_" :POKE2034,.133:3Y356340:LO 
OP 

390 DOWHILEAS="_":AS="":FORI=ITOB:KEYI,CHRS ( 
132+1) :NEXTL:LOOP 

400 DOWHILEINSTRI"{BLACK WHITE RED CYAN PURP 


LE GREEN BLUE YELLOW RVSON}” „A$) :G=INSTR("{B 
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<173> 


$228> 
<199> 


<209> 
1657 


<193> 


<246> 
<A> 


<81> 


<115> 
<134> 


<63> 
<1477 


196? 
<244> 
<176> 
<151> 
<216> 


<123> 
<157 


<13> 


<153> 
<210> 


<165? 


<147> 
(241> 


<3> 


<214> 
<15> 


<89> 
<37> 
$226> 
<61> 
<114> 
<223> 
<99> 
<36> 
<208> 
£173> 


PROGRAMME Ha 


LACK WHITE RED CYAN PURPLE GREEN BLUE YELLOW 
RVSON) " „A$) :Ag="" 

410 ONGGOSUBS20 ,660.820,900,1090,1590,1810,2 

240, 2690 :LOOP 

420 DOWHILEAS=CHR$ (27) :Aß="":X=X+10: IFX>RRTH 
ENX-LR: Y=Y+1: IFY=25THENY=24 :5C-1 

430 IFSCTHENSC=O ; LFME< 39THENME=ME+1:SYSSH:SY 
SPS,0,24,T$ (Y+ME+S) 

440 LOOP 

450 DOWHILEA$="( CTRLI}" :A$="" :POKE65286 .PEEK 
{65286 ) AND239 : FORI=8+63T0S+Y+ME+1STEP-1:T$(I 
)=T$(I-1) 

460 NEXTI:T$ {Y+ME+S)=L$: PORI=YTO24:SYSPS,0,1 
„T$ (1+ME+S) :NEXTI: POKE65286 ‚PEEK (65286) OR16: 

LOOP 








470 DOWHILEA$=" (CTRLDY" :A$="" :POKE65286 , PEEK 
et in 
:NE 

480 T$ (5+63)=L$:FORI-YTO24:SYSPS,0,1,T$(I+ME 

+58) :NEXTI : POKE65285 , PEEK (65286) OR16 :LOOP 

490 DOWHILEA$="{ HOME} " :BA=Y+ME+S: A$="";LOOP 

500 DOWHILEAS=" ( CLEAR} " :BE=Y+ME+3:Ag="":L00P 

510 GOTO140 

520 Ag=-"{C*19}":SYSP8,20.5,A$ 





X ST SPACES C*}" :SYSP9,20,6,A$ 
540 Age" CH (£)":SYSPS,20, 
7,3% 


550 Ag="(C* SPACEIT7 C*}":8YSP3.20.8,A$ 

560 A$="{C*19)":3YSPS,20,9,A$ 

570 GOSUB2630 : TRAP620 :POKE65286 ‚PEEK(65286) A 

ND239:OPEN1,8,2,N$+",8,R" ; INPUT$1,AZ 

580 FORI-OTOAZ: INPUT#1,T$ (I) :T$LIJ=MIDSET$ÄI 
).2.80) 

890 IEINSTRLTSCT) . "LOK ITHERMEDSCTELT. INST 

RCTSCH) CRY") ,12I="," :G0T059 

600° IFINSTR(TS{I). "ED niEmMIDs Ten. INST 

R{T$ (TI, "iCD}") ,12}="2":G0T060 

610 NEXTI 

626 CLOSE1:POKE65286 ,PEEK(65286)0R16 

630 TRAP3280 

640 FORI=5T09 :A$=MID$ (TS {I+ME+5) ,21,19) :9Y3P 

S,20.1.A$:NEXTI 

650 FORI=0T024:5YSP3.0,1,T$1I+ME+S) :NEXTI:RE 

TURN 

660 As="{[*19)":SYSP3,20,5,A$ 

670 As="iC* SPACE4 55 SA SV SE SPACE ST SE 8 

X ST SPACES C*}" :SYSPS,20,6.A$ 

880 Kt nen --n{£#}":3YSP3,20, 
‚AS 

690 Ag="iC* SPACEIT7 C*}":3YSP9,20,8,A$ 

700 A$="(C*19)":5YSPS,20,9,A$ 

710 GOSUB2530 :TRAP?90 : POKE65286 ‚ PEEK (65286) A 

ND239:0PEN},8,2, "00: "+N$+",8,W" :PRINT#1,Y+ME 

+3 

720 FORI=OTOY+ME+S 

730 IFINSTR(T$(I),","}THENMIDS (T${I) ,INSTRCT 

$(D),"."),1)="{CK}" :GOTO730 

740 IFINSTR(T$(1),“:")THENMID$(T$(I) , INSTR(T 

$(1),":") ,1)=" CD)" :GOTO740 

750 PRINT#L,"#"TE(I)"*" 

760 IFINSTR(T$(I), "(CK)" )THENMIDSTSCI). INST 

R(TS(T) "CK ”).1)=", "60710760 

770 IFINSTR(T$LT}," (CD) ")THENMIDS (TS CL) .INST 

R(TSCH),"LEDI"),. 1)=":":G0OT0770 

780 NEXTI 

790 CLOSE1 :POKE65286 ‚ PEEK (65286) OR16 

800 TRAP3280 

810 FORI-5T09:A$=MID$ (T$(I+ME+S) 21,19) :SYSP 

8.20,1.A$:NEXTI: RETURN 

820 Ag="(C*14)":5YSP3.30.10,A$ 

830 Ag="il* SC SH 502 SS SE SPACE SE SAGE 


Er:1Cr)":SYSPS,30,11,A$ 
-{C9)”:9Y5P3,30,12,A$ 





Ban Ag=" Lt} 


<38> 
<91> 
<137> 
<108> 
<165> 
<242> 


<91> 


<93> 
<241> 
<5> 
<187> 
<70> 
<257> 
<139> 
<243> 
<B> 
<197> 
<37> 
<30> 
<215> 
<129> 
<120> 
<148> 
277 
<185> 


<152> 
<165> 


<204> 
<127> 


<148> 
<81> 


<D> 
<181> 
£78> 


<151> 
<155> 


<B2> 
<147> 
<35> 
€63> 
<198> 


<26> 
<232> 


<200> 
66? 


31 














BE PROER/ALIMTE 


850 Ag="ticCt SP 5A 56 SEYT(I-"+RIGHTS (STR$ CMS 
+1), 1)" ) :1CP C*H)":SYSPS,30.13,A$ 

B60 Ag="i CH14,":9YSPS,30,14,A$ 

870 G$=LEFT$ ("1234567" ‚MS+1) :DO:GETA$ :LOOPUN 
TILINSTR{G$,A$) :G=INSTR (69, A$) 

880 FORI=10T014:A$=MID$ (T$ (I+ME) ‚31,14) :SYSP 
8,30,1,A$:NEXTI: IFG-1-STHENRETURN 

830 Se (G-1)%*64:ME=D : Y=D: X=LR; FORI=0T024 :9YSP 
5,0,1,T${I+S) ;NEXTI:RETURN 

900 Ag="{C*24)":5YSP3,0,10,A$ 

910 Ad="{C* SPACE SC SH SA SN 56 SE SPACE SP 
SA SG SEN-ISF 50 SR SM SA 32T SPACE) : (SPACE 

Cr :SYSPS,0,11,.A$ 

920 Ag=" (Or) nennen OR) SSYSP 
5,0,12,A$ 

930 Ag="{C# SPACE SU SS SE SPACEIK{SU SPY>LS 
PACEISASPACEIR {3D SO SW SNY > SPACEHTOLSPACE 
Er} :SYSPS,0,13,A$ . 

940 A$="(C* SPACE SC SH SA SN 5G SE SPACE SL 





SE SE ST SPACE SS SI SD SE SEARCH !ISPACEI € 


*)}":5YSP5,0,14,A$ 
STY>{ SPACE)S{SPACEIX{SIR SI SG SH STI>{SPACE 
C*}":SYSPS,0,15,A$ 


WE gif I ru gi ZA Oo wi 


SE} !{ C*}"":SYSPS,0,16.A$ 
970 Age { CH une GRNSYSP 
9,0,17,A$ 


980 Ag="{C* SPACE SL SE SF ST SPACEIL SR SI 


wi Bi ZI Zi Sr 


1000 Ag="il* SPACE22 C*}":SYSPS,0,20,A$ 

1010 Ag="(C*24}":5YSPS,0,21,A$ 

1020 FORI=GTOLR:DRAW, 1+8,152T01+8,159:NEXTI; 
FORI=RRTO79:DRAW, 1+8,352T01+8,159;NEXT1 

1030 DRAW,LR+8,152TOLR+8,159:DRAWO,LR+9,152T 
OLR+9,159 

1040 DRAW, RR+9,132TORR+8,159:DRAWO, RR+7,152T 
ORR+7,159 

1050 A$=5TR$ (LR)+" (SPACE) ":SYSPS,1,20,A$:A$= 
STR$ (RR) +" {SPACE}: SYSPS,17,20,A$ 

1060 DO:GETA$:LOOPUNTILINSTR{"{UR DOWN RIGHT 
LEFT) "+CHR$ (13) ,A$} : IFA$=CHR$ (13) THEN1080 
1070 LR=LR- (A$="{ UP} "ANDLR<35) + (A$="{ DOWN) "A 
NDLR>O) :RR=RR- (A$=" { RIGHT} "ANDRR<79) + (A$="(L 
EFT) "ANDRR>44) :GOTO1030 

1080 FORI=10T021:A$=-LEFT$ (T$(I+ME+3), 24) .9%3 
PS,0,1,A$:NEXTI:X=LR:RETURN 

1090 Ag=-"(C*22}":5YSPS,40,0.A$ 


m BES Eu zu zu 


",5YSPS,40,1,A$ 

1110 Age (rm nn CH) SYSPS 
‚40,2,A$ 

1120 A$="(C*}<1>( SPACEICENTER( SPACE}LINE( SPA 
CE5 C*)":SYSPS,40,3.A$ 

1130 As="(C*)<2>1 SPACEYLEFTSIDEDI{ SPACE? C*}” 
:SYSP3,40,4,A$ 

1140 A$="(C*)<3>t SPACEIRIGHTSIDED{SPACES C*} 
":9YSPS,40,5.A$ 

1150 As="{C*}<4>( SPACE}BLOCKSIDED{ SPACES £*) 
“,8YSP3,40,6,A$ 

1160 Ag="{C*#)<5>{ SPACE}NOTHING ( SPACES C}":5 
YSPS,40,7,A8 

1170 Ag="(C*22}":SYSPS,40,8,A$ 

1180 DO:GETA$ : LOOPUNTILINSTR( "12345", A$) ıG=V 
AL(A$) 

1190 FORI=0T08 : A$=MID$ (T$ (T+ME+S) 41,22) :SYS 
PS,40,1,A$:NEXTI 

1200 IFG-STHENRETURN 

1210 ONGGOSVB1230,1290,1370,1450 

1220 SYSPS,0,Y,T$(Y+ME+S) :RETURN 

1230 PO=41+LR-(79-RR) :P=LR+1:DO:A$=MID$(T$ (Y 
+ME+S) ,P.1) :P=P+1:LOOPUNTILASS 3" 4 SPACE) "ORP= 
RR+2:P=P-1 

1240 IFP=RR+1THENRETURN 


m zu ZI ZZ „Lie 








«1> 
<132> 


6225? 
$124> 
x26> 

<138> 
<199> 
<1392> 


<148> 


<38? 


%63> 


<201> 
<116> 
<194> 
<13> 
<62> 
<67> 
<86> 
<112> 
<«172> 
64> 


<70> 


£36> 
<233> 
1437 
<119> 
<95> 
<1757 
<60> 
22347 
<65> 


<91> 
<255> 


<228> 


<148>7 
787 
<793> 
<4> 


<249> 
<136> 


1250 PP=P:P=-RR+1:DO:A$=MID$ (T$ (Y+MEX8) ,P,1): 
P=P-1 : LOOPUNTILAS< >" { SPACE} "ORP=LR;P=P+i 
1260 IFP=-LR+1THENRETURN 

1270 A$=MID$ (T$ {Y+ME+S) ‚PP, P-PP+1) :L=LEN(A$) 
12: T$ (Y+ME+S)=L$ 

1280 MID$(T$(Y+ME+5),FO-L,L*2)=A$: RETURN 
1290 P=LR+1:DO:A$=MID$ (T$CY+ME+45) ,P,1) :P=P+i 
:LOGPUNTILAS< 3" ( SPACE) "ORP=RR+2:P=P-1 

1300 IFP-RR+1THENRETURN 

1310 PP=P:P=RR+1:DO:A$=MIN$(T${Y+ME+S) ,P,1): 
P=P-1 :LOOPUNTXLAS< >" { SPACE} "ORP=LR:P=P+1 
1320 IFP=LR+1THENRETURN 

1330 A$=MID$(T$(Y+ME+S) ,PP,P-FA+1) 

1340 IFINSTR(A$,"{SPACEZ}”)=-OTHEN1360 

1350 P=INSTR(A$,"{SPACE2} ") :L=LEN{A$} :A$=LEF 
T$(A$,P-1}+RIGHT$A$.L-P} :GOT0O1340 

1360 T$(Y+ME+S)=L$:MID$ {TS (Y+ME+S) „LR+1,LEN( 
A$))=A$ : RETURN 

1370 PeLR+1:DO:A$=MID$ (T$ (Y+ME+S) ,P,1):P=»P+1 
: LOOPUNTILAS< >" { SPACE) "ORP=RR+2:P=P-1 

1380 IFP=RR+1THENRETURN a 
1390 PP=P:P=RR+1:DO:A$=MID$ (TS (Y+ME+S) ,P,1): 
P=P-1:LOOPUNTILA$< >" { SPACE} "ORP=LR:P=P+1 
1400 IFP=LAR+1THENRETURN 

1410 A$=MID${T$(Y+ME+S) ‚„PP,P-PA+1} 

1420 IFINSTR(A$, "iSPACEZ}")=OTHEN1440 

1430 P=INSTR{A$. "{SPACE2}") :L=LEN (AS) :A$=LEF 
TE Ag, P-1)+RIGHT$ (A$,L-P} :GOT01420 

1440 T$(Y+ME+S)=L$ :MID$ {T$ (Y+ME+5) ,RR-LEN{AS 
}72,LEN(A$})=A$:RETURN 

1450 P=LR+1;DO;A$=MID$(T$ (Y+ME+S) ,P,1) :P=P+l 
ı LOOPUNTILAS$< >" { SPACE} "ORP=-RR+2 :P=P-1 

1460 IFP=RR+1THENRETURN 

1470 PP=P:P=80 :DO: A$=MID$(T$ (Y+ME+S} ,‚P,1):P= 
P=-1:LOORUNTILA$< >" ( SPACE} "ORP=0 :P=P+1 

1480 IFF=LR+3 THENRETURN 

1490 A$=MID$(T$ (Y+ME+S),PP,P-PP+1) :IFINSTR(A 
$,"{ SPACE} ")=OTHENRETURN 

1500 IFINSTR(A$, "(SPACE2}")=OTHENPOS="":P=LE 
N(A$) :L=P:GOT01520 

1510 P»=INSTR(A$, "{SPACE2Y'') :L=LEN (A$) :A$=LEF 
T${A$.P-1) +RIGHT$ (A$,L-P) :G0OT01500 

1520 FORI=1TOLEN(A$) : IFMID$ (A$,I,1)="(SPACH} 
“THENPO$=PO$S+CHRS (I) 

1530 NEXTI:PO$=POS+CHR$ 1} :PO=1 

1540 IFLEN(A$) >=RR-LR+1THENIiSBO 

1550 P=ASC (MID$ (PO$,PQ,1}) :FORI=PO+1TOLEN (PO 
$)-tr 

1560 MID$(PO$,I,1)=CHR$(1+ASC(MID$(PO$,1I,1)) 
} :NEXTI :PO=PO+1 : IFPO=LEN (PO$) THENPO=1 

1570 Q$=LEFT$ (A$,P)+"( SPACE} +RIGHTS (AS, LEN( 
A$)-P) :A$=Q$:GOT01540 

1580 MID$ (T$ (Y+ME+S) ‚LR+1,LEN(A$) )=A$: RETURN 
1590 Ag="{C*22}":9YSPS,40,0,A$ 





P SA 56 SE SPACE SF 50 5R SM SA ZT SPACE C*) 
":SYSPS,40,1,A$ 

1610 Age ( One CN 5YSPS 
‚40,2,A$ 

1620 Ag="{ C*t}<1>{ SPACE) CENTER SPACE} PAGE SPA 
CES5 C*}":SYSP8,40,3,A$ 

1630 Ag="(Cr)<2>{ SPACE}LEFTSIDED( SPACE? Cr)" 
:SYSP3,40,4,A$ 





"1649 A$="(Cr}<3>( SBACEIRIGHTSIDED(SPACES Ci} 





":SYSPS.40,5,A$ 

1650 Ag="{Cr}<A>( SPACHIBLOCKSIDED{SPACES EX} 
":SYSPS,40,6,A$ 

1660 Ad" CH<SS>tSPACEINOTHING ( SPACEI C*}":5 
YSPS,90,7,$ 

1670 A$="{C*22)":SYSPS,A0,B,A$ 

1680 DO:GETA$:LOOPUNTILINSTR("12345" ,A$) ıG=-V 
ALLAS} 

1690 FORI=0OTO8 :A$=MID$E (TS (I+ME+S} ‚41, 22) 973 
PS,40,1,A$:NEXTI 

1700 IF6=5THENRETURN 

1710 MM=ME:MY-Y:ONGGOSUB1730,1750,1770,.1790: 
ME=MM: Y=MY 





C16 - SA 2/89 


<2> 
<132> 


<202> 
<98> 


<62> 
<197> 


<63> 

<193> 
<178> 
<192> 
<191> 
«1357 


<142> 
<21> 


<143> 
<17> 
x2> 
2547 
(2223 
<83> 


<222> 
<101> 


<167> 
977 


<231> 
<2487 
<253> 
<146> 
<56> 
<797 
<89> 
<172> 
<208> 
<64> 
<133> 
<199> 
<85> 
<212> 
<50> 
<224> 
<55> 


<81> 
<245> 


<218> 


<138> 
<68> 


<48> 


1720 FORI-0T024:9YSP9,0,1,T$1I+ME+3) :NEXTI:R 


ETURN 

1730 POKE65286 . PEEK (65286) AND239 : FORY=-DTO63; 

IFT$ (Y+3)X >L$THENGOSUB1230 : NEXTY :ELSENEXTY 

1740 POKE65286 ‚PEEK (65286 )OR16 : RETURN 

1750 POKES5286. PEEK (65286) AND239 : FORY=-DTO63: 

IFT$tY+S)< >L$THENGOSUB1 290 :NEXTY : ELSENEXTY 

1760 POKE65286 ‚PEEK (65286 )OR16 : RETURN 

1770 POKE63286 , PEEK (65286) AND239 : FORY=-0TO63; 

LFT$Y+5}< >LSTHENGOSUB1370 : NEXTY: ELSENEXTY 

1780 POKE65286 , PEEK (65286) 0R16 : RETURN 

1790 POKE65286 ,PEEK (65286) AND239 : FORY=OT063: 

IFT$ (Y+9)< >L$THENGOSUBL450 : NEXTY :ELSENEXTY 

1800 POKE65286 , PEEK (65286) OR16 : RETURN 

41810 Ag="(Cr20)":5YIPS,35,0.A$ 

1820 A$="(C* SPACE SE SL 50 SC SKY-1SQ SP SE 
SR 5A ST SI 50 SEN 59 SPACE Cr}":SYSPS.95.1, 

A$ 


1830 Ag" (Or — nn (CR IYSPI,3 
5,2,A$ / 

1840 Age" C*}< 131 SPACEISCRATCHL SPACE} BLOCK 
PAGE C*}":SYSPS,35,3,A$ . 

1850 Ag="(C*}<2>1 SPACEYDELETEt SPACEIBLOCK SP 
ACE2 C*}":5YSPS,35,4,A$ 

1860 A$="{Cr}<3>1 SPACE} INSERT { SBACHIBLOCK (SP 
ACE2 £*}”:SYSP8,35,5,A$ 

1870 AS="{C}<A>( SPACE}MOVE {SPACE} BLOCK ZPAC 
E4 C*)":5Y5P3.35,6,A$ 

1880 Ag="(C* SPACEIZ C*)":5YSPS,35,.7.A$ 








z_ ton ZA m m zn 


ST SI 50 5N 558 SPACEZ C*}":SYSPS,35.8,A$ 
DM En sem 
5, ’ $ 


1910 A$="{C*)C5>4 SPACE}SCHATCHI SPACE) TEXT SP 
ACE2 C*y".3YSP8,35,10,A$ 

1920 Ag="{Cr}<6>1 SPACE} SCRATCH( SPACE} PAGE(SP 
ACE2 C*}" .SYSPS,35,11,As 

1930 As="1C*}<7>( SPACEYDELETE{ SPACE} PAGE{ SPA 
CEI C*}":SYSP3,35,12,A8 

1940 A$="{C®}<B>1 SPACE) INSERT{ SPACE PAGE{ SPA 
CE3 C*}":5Y8P9.35,13,A$ 

1950 Age" CH}<9>t SPACE) NOTHING SPACE? C*}":5 
YSPS,35,14,A$ 

1960 Age"(C*20)":8YSP8,35,15,R$ 

1970 DO:GETA$ : LOOPUNTILINSTR{"123456789" ,A$) 
:G=VAL (A$) 

1980 FORT=0T015:A$=MID$(T$LI+ME+S) .36.20):5Y 
SPS,35.1,A$:NEXTI 
1990 LFG=9THENRETURN : ELSEPOKE65286 ‚PEEK (6528 
6) AUD239 

2000 ONGGOSUB2030 ,2040,2080,2140,2180,2190,2 
200. 2220 : POKE65286 ‚PEEK (65286) OR16 

2010 IFGCSTHENBA=-1:BE=-1 

2020 FORI-0T024:5Y5P8,0,1.T$(I+ME+8) :NEXTI:R 


ETURN 

2030 IFBA<OORBE<OTHENRETURN: ELSEFORT=BATOBE: 
T$(I}-L$:NEXTI : RETURN 

2040 IFBA<OORBE<OTHENRETURN 

2059 IFBE=M3*64+63THEN2030 

2060 QQ=M3"64+63: AN=BE-BA+1 : FORI=BE+1 TORI: T$ 
tI-AN)=T${L) :NEXTI : FORI=NQ-AN+LTONN: TE LI) =L$S 
:NEXTI 

2070 RETURN 

2080 IFBA< OORBE< 0OORBA»Y+ME+STHENRETURN 

2090 AN=BE-BA: IFY+ME+SHAN>MS*64+63THENRETURN 
2100 IFBA<Y+ME+STHEN2130 

2110 FORI=BATOY+ME+S+1STEP-1:N$=T$ (I-1):FORJ 
=OTOAN:T$ (I=-1+J)=T$ CI+I) :NEXTI:STSCIFI) =DS 
2120 NEXTI :RETURN 

2130 FORI=BETOY+ME+S+AN-1:N$=T$(I+1) :FORJ=OT 
OAN:T$(I+1-J)»T$CI-J) :NEXTI:TS (II) NS :NEXTT 
;RETURN 

2140 IFBA<DARBE<SOTHENRETURN 

2150 AN=BE-BA: IFY+ME+S+AN>MS*64+63THENRETURN 
2160 OQ=Y+ME+3:FORI=DTOAN:TES(NQ+II=-TELBAHTI : 
NEXTI : RETURN 

2170 RETURN 














Ci - SA 2/89 


<202> 


<29> 
<165? 


<63> 
<185> 


<37> 
2057 


<11> 
<226> 
“66? 
<129> 
<«32> 
<232> 
<«90> 
59) 


<103> 
<187> 


<21> 
<B4> 
<77> 
%94> 
<255> 
<225> 


<210> 
<202> 


<53> 
<168> 
<240> 


<ı121> 
<226> 


2247? 


<162> 
<163> 
<28> 


<96> 
<172> 
<119> 
<20> 
<170> 


<2337 
<74> 


<50> 
<8> 
<a0> 


«159> 
<16?. 


PROGRAMME 


2180 FORI-OTOE:T${I}=L$:NEXTI : RETURN 

2190 FORI=0T063:T$ (S+L)=L$:NEXTI:RETURN 
2200 IFS/64-MSTHEN2190 

2210 Q1-3:02=M3*64-1:FORI-NI1TOQ2: TE LI) "TH (Ir 
64) :NEXTL : SM=S: S=MS* 64 :G0SUB2190 ; S=SM: RETURN 
2220. IFS/64=MITHENZ2190 

2230 01=-8+64 :02=M5*64+63: FORI=N2TOQLSTEP-1:T 
${1}=T$ (1-64) :NEXTI1:G0T02190 

2240 A$="{C0*30)":5YSP5,0,0,A$ 


SYSPS,0,1.A$ 

2260 Ag (CH nn me nenef li 
}":SYSP3,0,2,A$ 

2270 As="{C*}<1>( SPACE} SET SPACE} PAGE SPACE) 
NUMBERS { SPACES C*) ":SYSPS,0,3,A$ 

2280 A$="(C*}22>1 SPACE} SET SPACE} PAGENUMBER- 
PLOT{ SPAGES C*}":3YSPS,0,4,A$ 

2290 A$="1C*}23>{ SPACH}SINGLEI( SPACE} PAPER{ SP 
ACE12 C*)":8Y9PS,0,5,A$ 

2300 AF="C*)CA> SPAGEHPAGES{SPACELI C*)":5Y 
PS,0,6,A$ 

2310 Ag="C*H}X5> SPACE) PLOTISPACEITEXT{ SPACE 
15 Cr}" :SYSPS,0,7,A$ 

2320 Ag="{C9}<6>4 SPACEINOTHING{SPACEIZ Cr": 
SYSPS,0,8,1$ ; 

2330 As="(C*30}":5Y3PB,0,9,A8 

2340 Q1l$=STR$ (FL) :02$=STRS{FL+PR) : Ag="<"+RIG 

A a a ee 
1 

2350 Ag=Ag+t")":SYSP8,22,3.A$:A$=MIDE ("<OFFX 
ON( SPACE} >” ,AP*5+1,5):3Y5P3,24,4.A$ 

2360 A$=MID$("<OFFIONG SPACE} >" ‚SP*541,5):8Y 

SPg,19,5,A$:A$="< "+STRS{PA+1)+"3":8YSP3,11,6 

















‚B$ 

2370 DO:GETA$ : LOOPUNTILINSTRU"1234596",A$) :6= 
VAL{A$) : IFG=&THEN2390 

en ONGGOSUB2400, 2440, 2480, 2520, 2550 .:60T022 
4 

2390 FORI=0TO9 :Ag=MID$ (T${I+ME+S).1,.30) :9Y5P 
8,0,1,A$:NEXTI: RETURN 


EA ei MEEAES Ani de an 3 Du Ze Zi 


BE Bun zu Zu Em ZI zn 


"HT$ (Q1$,LEN{Q18)-1) +"-"+RIGHT$ (N2$,LEN(Q2$)- 


1) k 

2420 A$=A$+">{ SPACE} ":SYSP9,22,3,A$:DO:GETAS 
:LOOPUNTILINSTR("{UP DOWN} "+CHR$ (13) ‚A$) 

2430 FL=FL- (As=" ( UP} "ANDFL< 99-MS) + A$=" ( DOWN 
}"ANDFL>1) : IFA$< >CHR$ (13) THEN2410 : ELSERETURN 
SU SM SB SE SR}-(SP SL 50 STY" :5YSP3,5,4,A$ 

2450 A$=MID$ ("<OFF><ON SPACE) >" AP*S41,5) :9Y 

Sp9,24,4,A$:DO:GETA$;LOOPUNTILINSTR(" {UP DOW 

N)" +CHR$ (13) ,A$) 

2460 IFAS=CHR$ (13) THENRETURN 

2470 AP=ABS(A$="{UP)") :GOTO2450 

2480 A$="{55 SI SN SG 5L SE SHIFISPACE ZP SA 
SP SE SRY":SYSP3,5,5,A$ 

2490 A$=MID$ ("<OFF>ICON{ SPACE} >" „SP*5+1,5) :SY 

SPS,18,5,A$:DO:GETA$ :LOOPUNTILINSTRÜ"(UR DOW 

N} "+CHRS$ (13) ‚A$) 

2500 IFAS=CHR$ (13) THENRETURN 

2510 SP=ABS (A$="{UP}*) :GOTO2490 

2520 Af="(SP SA SG SE 55Y":SYSP3,5,6.A$ 

2530 Ag="<"ASTRS(PA+1) +" 3":5Y9PS,11,6.A8:D0: 

GETA$: LOOPUNTILINSTR("(YP DOWN) "+CHRS(13) .AS 


) 

2540 PA=PA- (A$="{ UP)" ANDPA<MS) + (A$="{ DOWN) "A 
NDPA >0) : IFA$< >CHR$ (13) THEN2530 ; ELSERETURN 
2550 Ad="(SP SL 50 ST SPACE ST SE 5X 5N":8Y 
5P8,5,7,A$:TRAP2620:OPENi ‚4,7: FORI=0TOPA:ONS 
P+160T02560. 2570 

2560 PRINT#1:G0T02589 

2570 A$="PRESS{ SPACE} ANY{ SPACEIKEY" :SYSPS,15 





<120> 
<16? 
<157? 


<792 
<177> 


<167> 
%252> 


<129> 
<194> 
x 2307 
<43> 
«75? 
<202> 
<149) 
34) 
<218> 
<1> 

<18> 


<248> 
<185> 
<151> 
<86> 

<249> 


<71> 
<97> 
<12> 
<207> 
<230> 
<185> 
25? 
<31> 
<239> 
<225? 
<151> 
<94> 
<237) 
<188> 


g11> 
<22> 


33 








BE PROER/AMME 


‚7,8$ :GETKEYA$ : FORJ=1T017 :PRINT#1 :NEXTJ 

2580 A$="PRINTING{ SPACE}. ...":5YSP3,15,7,A$: 
FORJ=0T063: PRINT#1,T$ {1I*64+J) :NEXTJ 

2590 PRINT#1:PRINT#1 : PRINT#1: IFAP»-OTHENPRINT 
#1:G0T02610 

2600 A$="<{SS SE SI ST SE}"+STR${FL+T)+">":P 
RINT#1, LEFT$ (L$,40-LEN (A$) /2)A$ 

2610 FRINT#1:PRINT#1 :NEXTI 

2620 CLOSEN :TRAP3280 ; RETURN 

2630 N$="";T=0:CC$="( CPY" ;LLS="(SPACH}" 

2640 SYSPS,21+T,8,CC$:DO:GETA$:LOOPUNTILINST 
R(EB$S+CHR$ (13) +CHR$ (20) ,A$) ı SYSPS,21+T,8,LL$ 
2650 IFA$=CHR$ (13) THENRETURN 

2660 IFA$=CHR$ (20) ANDTTHENT=T-1:N$=LEFT$E (NS, 
T) :GOT02640 

2670 IFT=160RINSTR(EB$ , A$) =OTHEN2640 

2680 SYSPS,21+T,9,A$:T=T+1:N$=N$+A$ :S0OTO2640 
2690 REM 

2700 FORI=1TO8:DOWHILEINSTR(KT$(I),CHR$ (13)) 
:MID$ (KT$ (I), INSTR(KTS CL) „CHRS (133), I=" ER 
":LOOP 

2710 DOWHILEINSTR(KT${I).CHRS(27)) :MID$ (KT$ 
I) ‚,INSTR(KT$ I} ,CHRS(27)) ,1)=" {CE} ’:LOOP:NEX 
TI 


2720 SCNCLR:A$="< {SPACE SFYALSPACH} >{ SPACE} = 
{SPACE} "+CHR$ (34) +LEFT$ (KT$ (1) ,40) +CHR$ (34) : 
SYSPS5,0,1,A$ 

2730 A$="<{SPACE SF}2{ SPACE} > SPACE) =1 SPACE} 
"+CHR$ (34) +LEFT$ (KT$ (2), AO)+CHRE (24): SYSPS,0 
»2,A$ 

2740 Aß="<{SPACE SFY3LSPACE) > SPACE}= ( SPACH} 
"+CHR$ (34) +LEFT$ (KT$ (3) ,40) HCHRS (34) :SYSPS,D 
3,88 

2750 AS="<{SH SE SL SP} >(SPACEY=X SPACE) "+CHR 
$(34) +LEFT$(KT$ (4) ‚40)+CHR$ (34) :SYSPS,0.4,A$ 
2760 AS="<{SPACE SFYAi SPACE) I SPACE}=( SPACE) 
"+CHR$ (34)+LEFT$ (KT$ (5) ‚A0) +CHR$ (34) :SYSPS, 0 
«9, A$ 

2770 A$="< (SPACE SFYS{ SPACE} SPACE) = ( SPACE} 
"+CHR$ (34) +LEFT$ (KT$ (6) ‚40) +CHR$ (34) :SYSPS, 0 
.6,A$ 

2780 Ag="<{SPACE SPI6t SPACE) >i SPACEI=( SPACE) 
"+CHR$ (34) +LEFT$ (KT$ (7) , 40) +CHR$ (34) :SYSPS, 0 
‚»7,A8 

2790 Ag="< (SPACE SF}7{ SPACE) >{ SPACE}= (SPACE) 
"+CHR$ (34) +LEFT$ (KT$ (8) ‚40) +CHR$ (34) :SYSPS,0 
‚8,A$ 




















2800 Do: GETA$:LOOPUNTILINSTR{"{Fi F3 F5 F8 F 


Z FE2 F4 F6 SPACEYSL",A$) :SCNCLR:Q=INSTR("(FZ 
"F3 FS F8 F7Z F2 F4 Eöy",A$) 

2810 IFQTHEN2870 

2820 0G=INSTR("SL",A$) :ONNGGOSUB3200,3090 
2830 IFOGTHEN2720 

2840 FORI=1T08 :DOWHILEINSTR(KT$(I)."(CR)"):M 
TER EBERLE) EINRIRLRDECH) CERIN)LISCHRELIST: 
L 

2850 DOWHILEINSTR(KTSLI)."(CE)") :MIDSCKTS (1) 
„ INSTR(KT$(I),"{CE}"), 13 =CHR$ (27) :LOOP:NEXTI 
2860 FORI=0T024:SYSPS,0,1,T${1+ME+3) :NEXTI:R 

ETURN 

2870 QX=LR:QY=0: T=LEN (KT$ (Q) ) :IFT=-OTHEN2910 
2880 FORI=1TOT:A$=MID$(KT$(Q),I,1):3YSPS,0X, 

QY,AS:OX=OX+1:IFAS="{ CE) "THENNX=NX+9 

2890 IFA$="{ CR} "OROX >RRTHENNX=LR:NY-QY+2 
2900 NEXTI 

2910 T-LEN(KT$ (9) ) 

2920 GSHAPEC$.QX*4.,0Y*8,4:D0:GETA$:LOOPUNTIL 


<1037 
<62> 
<131> 
<49> 
<107> 
<27> 
<103> 


<167> 
<120> 


<42> 
<104> 


<27> 
<27> 


«192? 


<217> 


<213> 


<1027 


<185> 
<249% 


<117> 


<210> 


<47>r 


<140> 


x166> 
<160> 
<106> 
<217> 


<847 


<224> 


<67? 
<53> 


<14> 

<234> 
<115> 
<235> 


INSTR (EB$ +" CX}"+CHR$ (13) HCHRSL27) +CHR$ (20), 
As) 

2930 GSHAPEC$.,QX*4,0Y*9,4: IFAS=".CX} "THEN272 
[1] 


2940 IFAS=CHR$ (13) ANDT< 127ANDQY< 24THENAS="LC 
EI" :SYSPS,0X.,QY,AS:KTSCQI=KTECQ)+" ICH" :OX=L 
R 


2950 IFA$=" OR} "THENGY-QY+1:G0T02910 
2960 IFA$=CHR$ (27) ANDAX+LO<BR+LANDT<LIOTHENA 
$="{ CE10)":SYSP5,0X,0Y, AS: NX=NX+LO 

2970 IFA$="{ CE29} "THENKT$ (N) =KT$ (Q)+" CH" :@ 
OTO2910 

2980 IFINSTR(EB$,A$) THEN3060 :ELSEIFA$< >CHREI 
20) THEN2910 

2990 IFT=0THEN2910 

30008 T=T-1:0X=QX-1 : IFT=OTHENKTS (A) a" "Age" 5 
PACE} " :SYSPS.0,0,A$:G0T02910 

36040 IFQX>=LRTHEN3040 

3020 Q&=CHR$ (0) +CHR$ (0) +CHR$ (O) +CHR$ (0) +CHRS 
(0) +CHR$ (0) +CHR$ (0) +CHR$ (0) +CHR$ (3) +CHR$ (0) + 
CHR$ (7) +CHR$ (0) 

3030 AX=RR:NY=NY-14+DO:SSHAPESS$ ,OX*4,0Y*8,0X 
”4+3,0Y*8+7:Q0X=0X-1 : LOOPUNTILAS< 535 : QX=QX+1 
3040 A$=RIGHT$(KT$ (Q) 1) : IFAS=" 1 CE} "THENOX=Q 
X-9:A$="( SPACE1O)":5YSPS,0X.QY.A$ 

3050 KT$LQ)-LEFTS(KT$(N) ,T) :AS=" (SPACE) ":SYS 
PS,0X,0Y.A$:G0T02910 

3060 IFT>126THEN2910 

3070 KTEQI-KTELOIHFAS:SYSPS,0X,QY.AS:NX-OX+1 
: IPQX >RRTHENQX»LR : LFOY< 24THENQY=OY+1 

3080 GOTO2910 

3090 A$="(C#19}":SYSPS,20,5,A$ 

3100 A$="{C* SPACE4 SL 50 54 SD SPACE SK SE 
SY SS SPACE C*}" :SYSPS,20,6,A$ 

3110 Age" OH —m nennen C*}":SYSP9,20 
‚7,8 

312H Af="iC* SPACELT C*)":8YSP,20,0.A$ 

3130 A$="{C*19}":5YSPS,20,9,A$ 

3140 GOSUB2530:TRAP3190 

3150 POKE65286 , PEEK (65286) AND239:0PEN1,8,2,.N 
$+",S,R":FORI=1T08:KT$(I)="":GET#1,A$ 

3160 DOWHILEA$< >CHR$ (13) :KT$(I)=KT$L)+A$:GE 
T#1,A$:LOOP :NEXTI 

3170 FORI=1TOB : DOWHILEINSTR(KTS{I) ,"LCR}"):M 
ID$(KT$(I),, INSTR{KT$CI),"’{CR}"),1)=CHR$(13): 
LOOP 

3180 DOWHILEINSTR(KT$ (I), "(CH}"): :MID$ (KTS(T) 
‚ INSTR(KT${1I) ,"t CEY"),1)=CHR$ (27) :LOOP :NEXTI 
3190 CLOSE1 :POKE65286, PEEK (65286) OR16: TRAP32 
80: RETURN 

3200 A$="(C*19)":9YSP3,20,5,A$ 

3210 A$="(C* SPACE4 SS SA SV SE SPACE SK SE 
SY SS SPACES C*)":SYSPS,20,6,A$ 

3220 As="( Er) ( Ct)" :SYSPS, 20 
.7,A$ 

3230 A$="(C* SPACEI7Z C*}":SYSPS,20,9,A$ 

3240 As="(C*19)":SYSPS,20,9,A$ 


»3250 GOSUB2630 : TRAP3270 


3260 POKE65286,, PEEK (65286) AND239 :OPEN1,8,2," 
80: "+N$+",5,W":FORI=1T08:PRINT#1,KT$ (I) :NEXT 


I 

3270 CLOSE1 :POKE65286 , PEEK (65286) OR16: TRAP32 
80 :RETURN 

3280 GRAPHICO,1:POKE65286 ,PEEK (65286) OR16: EN 
D 


ENDE DES LISTINGS 


<46> 
<157> 
<2177 
<127) 
71» 
<85> 


<195> 
<248> 


<36> 
<165> 
<26> 
<255> 
<132> 


<155> 
<99> 


845? 
<96> 
%45> 
<23> 
<7> 
“287 
<217> 
<119> 
<162> 


<141> 


<1597 
<43> 


<205? 
<155> 


<59> 
«1177 
<138> 
<71> 
<218> 
<111> 
<29> 


<240> 


::0E 


MC-LISTING MIT CHECKSUMMEN OVM10 1020 22 22 22 66 AR AA 66 00 : :ıAC >1050 22 00 66 22 22 22 22 CC ::00 
>»1028 00 00 44 AA EE 88 66 00 ::4C >»1058 88 BB AA CC CC AA AK 00 ::CcC 
>1000 44 AN AA 89 89 AA 44 00 ::46 >1030 66 88 88 CC a8 88 88 00 ::0E 31060 CC 44 44 44 44 44 EE 00 
»1008 00 00 CC 22 66 AA 66 00 ;:Cd >1033 00 00 66 AA AA 66 22 CC ::26 >1068 00 00 DU BB 99 99 99 00 ::BD 
>1010 88 88 88 CC AA AA CC 00 ::62 >1040 88 88 88 CC AA AA AA 00 ::A4 "31070 00 00 CC AA AR AA AA 00 ::80 
>»1018 00 00 66 88 88 88 66 00 ;:1C >1046 44 0B CC 44 44 44 EE 00 ::7E >1078 00 00 44 AA AA AA 44 00 
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3 5 2 3 3 
& 2 3 & ER 
Fl "| 8 2 g" 
si? | R A 
2 i A 
E # g 
g & 
=} | 
5 
| 
Dr,- 2 
je) ie) jr 2 
en 7} o & 
g TOR 
© Bo@® 
on «ii a 
"2 ad 
SR: 
2 OR 
2 ) 
” 3 
g“ 
T ——, 
: ra: $ 
FRE N- 
E*r 
Bst 
i "Een 
>11D8 00 00 44 00 00 44 44 88 ::69 >13A0 CO CO co co 
>11E0 11 22 44 B8 44 22 11 00 ;::C9 | >12AB EO EO EO EO 
>11ES 00 00 EE 00 00 EE 00 00 ::;57 >13B0 06 06 06 06 
>11F0 883 44 22 11 22 44 88 00 ::B5 >13B8 FE FE 00 00 
>11F8. 44 AR 22 44 44 00 44 00 ::47 >13C0 FE FE FE 00 
>1200 00 00 00 FE FF 00 00 00 ::05 >13C8 00 00 00 00 
>1208 44 AR AR EE AA AR AA 00 ::5C >13D0 02 02 02 02 
>1210 CC AA AA CC AA AA CC 00 ::52 >13D8 00 00 00 00 
>1218 44 AA 88 88 88 AA 44 00 ::FA >13E0 OE OE OE OE 
>1220 CC AA AA AA AA AA CC 00 ::DA >13E8 18 18 18 F& 
31228 EE 88 88 CC 88 88 EE 00 ::5A >13Fo FO FO FO FO 
>1230 EE 88 88 CC 88 88 98 00 ::98 >13F8 FO FO FO FO 
>1238 44 AA 88 AA AA AA 44 00 3:4C >1400 85 DO A9 1B 
>1240 AA AA AN EE AAN AA AR 00 ::FA >1408 4F 20 49 DE 
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gegen Vorkasse [_] 
Entnehmen Sie bitte aus unserer Preisliste die notwendigen Angaben für Ihre Bestellung: 


Ausland: nur gegen Vorkasse (Bargeld oder Scheck) 


Die Zustellung erfolgt: 
innerhalb von 1 Woche 


Bitte liefern Sie mir: 


Datum, Unterschrift 


Bestell-Nr 
Bestell-Nr. 
(Bj Minderjährigen ist die Unterschrift eines Erziehungsberechtigten erlurderlich.} 


zum Preis von gesamt 


[.] Kassette für 
[_| Diskette für - 
Name, Vorname 


PLZ, Ort 








co CO CO CO ;;B3 >1568 99 00 3E 99 CO 3F CB DO ::A6 
EO EO EO EO ::3B 1570 F5 60 AI 00 85 DO A9 IF ::45 
07 07 07 07 ::B5 31578 85 D1 A9 CO 85 D2 A9 3D ::BB 
00 00 00 00 ;:C5 >1560 85 D3 A2 IF AO 00 Bi D2 ::A9 
80 00 06 ON :;C7 >1588 91 DO C8 DO F9 C6 D1 C6 ::CE 
00 FF FF FF ::C6 1590 D3 CA DO FO AO 00 A9 00 ::FB 
03 03 FF FF ::09 »1598 99 00 20 C8 DO FA AO 00 ::06 
Fo FO FO FO ::4B >15A0 A9 00 99 00 21 C8 CO 40 ;:BE 
00 00 00 90 ::?7PF >15AB DO F6 60 31 38 2C 31 33 ::6C 
F8 00 00 00 ;::43 »1580 33 20,31 36 31 2031 37 4:67 
00 00 00 00 ::683 »15B8 33 2C 31 37 35 2C 31 38 ::EF 
oF OF OF OF ::Fi 

20 49 DC A9 ;:42 

a9 13 20 49 ::DD ENDE DES LISTINGS LOVM) 
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Apfelmännchen-Prograrmme 
gibt's ja mittlerer Weile viele, 
doch haben Sie schon mal eins 
gesehen, das die Grafik nicht 
in Farbe sondern dreidimen- 
sional darstellt? Nein? Gut, 
dann werden Sie jetzt eines 
kennenlernen! 


C16 - SA 2/89 


Nach dem Start des Pro- 
gramms haben Sie die Wahl 


zwischen sieben Menü- 


Punkten: 


1. Grafik ansehen: 
Nach dem Tastendruck kann 
das Bild für 3-4 Sekunden be- 


trachtet werden. 


2. Speichern auf Kass, mit 
Turbotape: 


hiier kann ein fertiges Bild mit 
dem "Kingsoft-Turbotape” ab- 
gespeichert werden. 


3. Speichern auf Kass. ohne 
Turbo-Tape: 
Der Name sagt alles. 


4. Speichern auf Disk: 
Dürfte ebenfalls klar sein. 


5. Directory: 
Ausgabe des Inhaltsverzeich- 
nisses (nur Disk), 


6. Neustart: 

Dadurch wird das Programm 
neu gestartet und eine alte Gra- 
tik gelöscht. Jetzt können neue 
Parameter eingegeben wer- 
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__ BEZEROIGIRTZNMINIE 


.7,A$:GETKEYAS : FORI=1T017: PRINT#1 :NEXTJ 

2580 A$="PRINTING{SPACH). ...":5YSP8,15,7.A$ı 
FORJ=0T063 : PRINT#1, T$ (1*64+J) :NEXTJ 

2590 PRINT#1 :PRINT#1 : PRINT#1 ; LFAP=-OTHENPRINT 
#1:G0T02610 

RINT#1.LEFT$ (L$ ,A0-LEN (AS) /2)A$ 

2610 PRINT#1:PRINT#1:NEXTI 

2620 CLOSE1:TRAP3280 : RETURN 

2630 N$="":T=0:CC$="{ CP)" :LL$=" SPACE)" 

2640 SYSPS,21+T,8,CC$:DO:GETA$: LOOPUNTILINST 
R{EB$+CHR$(13) +CHR$ (20) ,A$) :SYSPS,21+T,8,LL$ 
2650 IFA$=CHR$ (13) THENRETURN 

2660 IFAS=CHR$ (20) ANDTTHENT=T-1:N$=LEFT$ (NS, 
T} :GOTO2640 

2670 IFT=160RINSTR (EB$ ,A$) OTHEN2640 

2680 SYSPS,21+T,8,A$: T=T+1:N$=N$+A$:GOTO2640 
2690 REM 

2700 FORI=1T08 :DOWHILEINSTR(KT$(1),CHR$ (13) ) 
IMIDS(KTS CI) ‚ INSTRIKTECT) .CHRS (LEI) I LCRN 
un Oi 

2710 DOWHILEINSTR(KT$ (1) ,CHR$ (27) ) :MID$ (KTEC 
BD). INSTRKTSCT) ‚CHRS(27)) ,LI=" GEN" LOOPANEX 
2720 SCNCLR:AS="< {SPACE SP) 1 SPACE} > SPACE)“ 
{SPACE} "+CHR$ (34) +LEFT$ (KT$ (1) ,A0) +CHRS$ (34) : 
SYSPS,0,1,As 

2730 Ag="<{SPACE SFY2LSPACH) > SPACE} = ( SPACE} 
BE NL SE IMIETS LAN AU BEOBI IR] eo 
2740 A$="<tSPACE SP}3( SPACE} >{ SPACE} =( SPACE} 
Ei (34) +LEFT$ (KT$ (3) ,40) +CHRS$ (34) :SYSPS,0 
2750 A$="<{SH SE SL SP} >{ SPACE} =X SPACE} "+CHR 
$(34)+LEFT$ (KT$ (4) ‚40) +CHR$ (34) :SYSPS,0,4,A$ 
2760 A$="<{SPACE SF}4{ SPACE} > SPACE} = SPACE) 
"+CHRS (34) +LEFTS (KTS (5) „40) +CHRS (34) :SYSPS, 0 
2770 Ag="<({SPACE SF}5t SPACE) > SPACH}={ SPACE) 
IRRE SISSITRERBRÜETELGT ZRH SCHBSLAR Evers. 
2780 A$="<1 SPACE SFY6t SPACE) > SPACE}=( SPACE) 
"FCHRS (34) +LEFTS (KTS(7) „A0)+CHRS(34) :SYEPS. 0 
2790 A$="<(SPACE SF} 71 SPACE) >. SPACE} =1 SPACE) 
"AEHRSTSAIFLEFTEIKTS 0). AU)HCHRELSS) «BTHFB,D 
2800 DO:GETA$:LOOPUNTILINSTR{"tF2 F3 F5 FB F 
7 E2 F4 F6 SPACE)SL" .A$) :SCNCLR:Q=INSTRÜ"(FZ 
EF3 ES F8 FZ F2 F4 F6)“,1A$) 

2810 IFQTHEN2870 

2820 QG=INSTR("SL",A$) :ONQGGOSUB3200,3090 
2830 IFQGTHEN2720 

2840 FORI=1T08 : DOWHILEINSTR(KT$(1),"(CR}"); 
IDS(KTS CH). INSTRIKTS CH. "ECM" „LI-CHRS (13) 
2850 DOWHILEINSTR{KT$(T},"{CE)") :MIDSCKTS(T) 
„INSTR(KT$(I),"{CE}"),1)=CHRS(27) :LOOP :NEXTI 
2460, FORI=0TO24:SYSPS.0.1,TS(I+ME+S) :NEXTI:R 
2870 QX=LR:QY=0: T=LEN(KT$ (0) ) :IFT=-OTHEN2910 
2880 FORI=1TOT:A$=MID$ (KT$ (0) ,I,1):SYSPS,0X, 
QY,A$:QX=QX+1: IFA$="( CE} "THENNX=NX+9 

2890 IFA$=" (CR) "ORQX>RRTHENNX=LR : NY=NY+1 
2900 NEXTI 

2910 T-LEN(KT$(N)) 

2920 GSHAPEC$,0X*4,QY*B,4:DO:GETA$:LOOPUNTIL 














= 
* 


<10: 
<62 
<ıa 
<ag! 
<107 
<27! 
«10! 


«165 
12 
«42; 
<104 


<27] 
<27| 


| 


cı9i 
<215 
21: 
<10i 
<ı198 
<249 
<117 
<21q 
gar)r 
<140> 


<166> 
<160> 
<106> 
<217> 


404> 


<224> 


<67? 
<53> 


<14> 

<234> 
<115> 
<235> 


Abrufkarte 
wird das bestehende 


0 Tagen beim Verlag 


1 


Ben 


ert. Außerdem kann ich diese Bestellung a 


er 


— DM (Ausland 52,- DM) 


129,50 DM {Ausland 142,50 DM) 
42, 


[_] Schneider 


ıelte Disketten 
199,59 DM (Schneider) 


ten 
I] Schneid 


Konto-Nr. 


Datum, Unterschrift 
Bankleitzahl 


„+12 = 
lare »Cornpute mit...« ohne bespielte Kassetten 


genügt die rechtzeitige Absendung des Widerru 


(Bei Minderjährigen ist die Unterschrift eines Erziehungsberechtigten erforderlich.) 


Abo-Beginn ab Hekt: 


DM {Commodore 
resabonnements, Bei nicht fristgerecht eingegangenen Kindi 


ute mit. 


PB 
hı 


[ ] Vorkasse 
6 Wochen vor Ablauf des Ja; 


gendes ABO: 
U] Bargeldlos durch Bankeinzug: 
der Frist 


lare »Compute mit...« + 12 bespielte Kasset 


lare »Conip 


P 
zum Preis von 


gegen 


P 
[[] Rechnung 


zum Preis von 
I 
zum Preis von 149,5 


[] Commodore 


1 


®, 

S 

Di 

wel 

[9 
} 


[ ] Commodore 
2 Exem 


12 Exem 
[] 12 Exem 


Geldinstitur 


Abonnement um ein weiteres Jahr verlän, 


Name/ Vorname 

Straße/Nr. 

Ich wünsche fol 

DJ 
Abunnement-Kündigungen: 
widerrufen! Zur W: 


Kombi-Abo »Compute mit« 


"210U POURHILEASS PCHREULII:KISEIJ)=KT$CTIHAS:GE 
T#1,A$:LOOP:NEXTI 
3170 FORI=1T08: DOWHILEINSTR(KT$ (I) ,"tCRY"):M 





Datum, Unterschrift 





<141> 


IDSCKTSCL) ,INSTRCKTS (1), "CR" 2I=CHRE (13) 2" 


LOOP at 


3180 DOWHILEINSTR(KT$(I). "{CE}") :MID$ (KT$ (I) 
‚INSTRIKTSEI)."(CEIY"),13=CHR$ (27) ;LOOP:NEXTI 
3190 CLOSE1:POKRE65286, PEEK (65286) OR16 : TRAP32 
80 : RETURN 

3200 A$="(C*19}":5YSPS,20,5,A$ 


SY 53 SPACE C*)":SYSPS,20,6,A$ 
3220 Ag=" ( CH). ( [#}":5YSPS, 20 
‚7,8$ 


3230 A$="(C* SPACE1? C*)":SYSP$,20,8,A$ 
3240 A$="(C*19)":SYSPS,20,9.A$ 

3250 GOSUB2630 : TRAP3270 

3260 POKE65286 , PEEK{65286)AND239:OPEN1,8.2," 
60: \+NS+",8.W": FORI=1TOB:PRINTE1.KTS CT) :NEXT 


3270 CLOSE1:POKE65286 ,PEEK (65286) OR16: TRAP32 
80 :RETURN 

3280 GRAPHICO, 1; POKE65286 ,PEEK(65286)OR16:EN 
D 


ENDE DES LISTINGS 


MC-LISTING MIT CHECKSUMMEN OVM10 >1020 22 

3 >1028 00 
>1000 44 AA AA BB 88 AA 44 00 ::46 >1030 66 
»1068. 00 00 CC 22 66 AA 66 DO ::C8 >1038 08 


>1040 88 
1048 44 


»ı2010 8B 88 88 CC AA AR CC 00 ::62 
»101B 00 00 66 88 B8 88 66 00 ;:1C 
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22 22 66 AR AA 66 00 
00 44 AA EE 88 66 008 ::4C 
88 88 CC 86 88 B& 00 
00 66 AA AA 66 22 CC ::26 
88 88 CC AA AR AA 00 
00 CC 44 44 44 EE 00 


2: AG >1050 22 
::0E 


Ad 
ı:7E 


1070 00 
21078 00 


<159> 
<43> 


<205> 
<155> 


<58> 
117) 
<138> 
712 
<218> 
<111> 
<29> 


<240> 


00 66 22 22 22 22 CC ::00 
>1058 88 96 AA CC CC AR AA 00 ; 
21060 CC 44 44 44 44 44 EE 00 
>1068 00 DO DD BB 99 99 99 DO :; 


cc 
ı:DE 
BD 


00 CC AA AA AR AA 00 ::80 
00 44 Ah AA AA 44 00 


::26 
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y . no 5 
2 .. 23 
} m, 
E 1 28 
& ao 
— 1 
pe} © 
P j S 
E & 
||| ErEEeE 
| 
R | | & 
| E 
c | l 2 
Li; | 
c | | = 
5) ' . | 
| = l 2 
Do ® | 5 
= [3 
® © i 3 
N 2 
= ? ® 
d : | 2 
A l 
O 
= 8 
2 ‚8 | 8 
ii 8 = 
E38 3 | jE 
o 3 - 8 | = 
4 5 2 58 | ® 
— @ - = I J a 
o 5 # 5 o 
u sagss | Saayı IE Sy 
:3 u, Pe m Le et 
“ I Basdss I ssfls „E58 
m Er ZaasE, Barrila E55, S5 
m _ EEEESR 95 82 85 88% 
S 0 S8.935.4.28 82: L. Sa 
x E57 Es === 3 .S 52 
BE oOBeSCa.ssssherssse 85,89 
2 .88 BI Bars 58 BlE zei) S8 
1 59 ES 3582332 BEa2 Snstis: x 
>11D8 00 00 44 00 00 44 A4 86 ::69 ] >isRo Co co co co 
>11E0 i1 22 44 88 4A 22 11 00 ::C9 >13AB EO EO EO EoO 
>11EB 00 00 EE 00 00 EE 00 00 ::57 | >13B0 06 06 06 06 
>M1FO 88 44 22 il 22 44 8B 00 ::B5 | >13BB FE FE 00 00 
J1lF@ 44 AR 22 44 44 00 44 00 ;:47 | >13C0 FE FE FE 00 
>1200 00 00 00 FE FF 00 00 06 ::05 | >13C8 00 00 00 00 
1208 44 AA AA EE AA AR AA 00 ::5C | >13D0 02 02 02 02 
31210 CC AA AA CC AA AA CC 00 ::52 | >13D8 00 00 00 00 
)1218 44 AA 88 BB BB AA 44 00 ::FA >13E0 OE OE OE OE 
31220 CC AA AA AR AA AA CC 00 ::DA >13E8 18 18 18 F8 
31228 EE 88 86 CC 88 88 EE 00 ::5A | >13F0 FO FO FO FO 
>1230 EE 88 88 CC 88 B8 88 00 ::98 >ı13F8 FO FO FO FO 
»1238 44 AA 88 AA AA AA 44 00 ::AC | >1400 85 DO Ag 1B 
31240 AR AR AN EE AR AA AR 00 ::FA | >1408 4F 20 49 DC 
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3 
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Entnehmen Sie bitte aus unserer Preisliste die notwendigen Angaben für Ihre Bestellung: 


Ausland: nur gegen Vorkasse (Bargeld oder Scheck) 


Die Zustellung erfolgt: gegen Vorkasse [|] 


innerhalb von 1 Woche 


Bitte liefern Sie mir: 


Bestellkarte 


Straße, Nr.: 
Datum, Unterschrift 


(Bei Minderjährigen ist die Unterschrift eines Erziehungsberechtigten erlürderlich.} 


Bestell-Nr. 
Bestell-Nr 


zum Preis von gesamt 


[Ü] Kassette für 
[_] Diskette für - 
Name, Yorname 





„m... 


co CO CO CO ::B3 >1568 99 00 3E 99 00 3F CB DO ::A6 
EO EQ EO EO ::3B »1570 F5 60 A9 00 85 DO AO 3F ::45 
07 07 07 07 ::B5 »1578 85 DI A9 Co 85 D2 A9 3D ::BB 
00 00 00 00 ::C5 >1560 85 D3 A2 1F AO OO Bi D2 :.:A9 
00 00 00 09 ::C7 >1588 91 DO CB DO F9 C6& DI C6 ::CE 
00 FF FF FF ::C6 >1590 D3 CA DO FO AG 00 A9 00 ::FB 
03 03 FF FF ::09 >»1598 99% 00 20 C8 DO FB AO 00 ::06 
FO FO FO FO ::4B »15A0 A9 00 9% 00 21 CB CO 40 ;:BE 
00 00 00 00 ::?F >15AB DO F& 80 31 38 2C 31 33 ::6C 
F8 00 00 00 ;:43 >15B0 33 2C 31, 36 31 2C 31 37 3:07 
00 00 00 00 ::63 >ı15B8 33 2C 31 37 35 2C 31 38 ;:EF 
GF DF OF OF :: Fl 

20 49 DC AS ;:42 

A93 13 20 49 ::DD ENDE DES LISTINGS (OVM) 





Apfelmännchen-Programme 
gibt's ja mittlerer Weile viele, 
doch haben Sie schon mal eins 
gesehen, das die Grafik nicht 
in Farbe sondern dreidimen- 
sional darstellt? Nein? Gut, 
dann werden Sie: jetzt eines 
kennenlernen! 
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Nach dem Start des Pro- 
gramms haben Sie die Wahl 


zwischen 
Punkten: 


sieben 


1. Grafik ansehen: 


Nach dem Tastendruck kann 
das Bild für +4 Sekunden be- 





trachtet werden. 


2. Speichern auf Kass. mit 
Turbotape: 


Hier kann ein fertiges Bild mit 
dem "Kingsoft-Turbotape” ab- 
gespeichert werden. 


3. Speichern auf Kass. ohne 
Turbo-Tape: 
Der Name sagt alles. 


4. Speichern auf Disk: 
Dürfte ebenfalls klar sein. 


5. Directory: 
Ausgabe des Inhaltsverzeich- 
nisses (nur Disk). 


6. Neustart: 

Dadurch wird das Programm 
neu gestartet und eine alte Gra- 
fik gelöscht. Jetzt können neue 
Parameter eingegeben wer- 
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a a u | 28 g ga 8 »3 
s zI 5 & 7 g | 3 z 2° 
il o He; 5 E92 A: & 
5 3 7 £ < & En 
Pa “ 2 = j- 2, 
| 
| 
x > 
BD SeoH & D AH A 
“" 9%2 3 > 208 8 
5 3 PB B. a 
5 BEE : 3 E35 
[e) TS Mrd: SB A 
—.B: e me. # 
n< 3 mM off 
onf 2 
S 6 E a 
= S38 2 3.0 
2 oO © °o 
11 # DO [6e) 
8 , 0 =! 
o = =. 
L Es u I Fry 
m maet 
pair Eis 
SHE 2 By, 3 
nm 73 Er 5 
" Een BERN ERESEIRRENROE BRENNEN vun DUMIIOBMPN ZCHRSULISIIRIFILISRTFLIIHAF:GE 
“+CHR$ (34) +LEFT$ {KT$ (7) ,40) +CHRS$ (34) :SYSPS,O T#1,A$:LOOP ;NEXTI <141> 
‚7, A8$ <47>r | 3170 FORI=1TO9B :DOWHILEINSTR{KT$(T) ,"tCA}"):M 
2790 Ag="<{ SPACE SFYFLSPACE} Di SPACE} ={ SPACE} ID$CKT$EI). INSTR(KTSCT)." CR"). 1) =CHR$ 13): - 
"+CHR$ (34) +LEFT$ (KT$ (8) „401 +CHR$ (34) ;SYSP5,0 LOOPF 5 "" €159> 
‚8,A$ <140> } 31860 DOWHILEINSTR(KT$ (I)."{CE}") :MID$CKT$CI) 
2800 DO:GETA$:LOOPUNTILINSTR("{F1 F3 F5 F8 F ‚ INSTR{KT$ 1) ,"{ CE}").1)=CHR$ (27) :LOOP:NEXTI <43> 
2 E2 F4 F6 SPACEYSL" „A$) :SCNCLR:O=INSTRL" (Fl 3190 CLOSEI :POKE65286,, PEEK (65286) OR16: TRAP32 
E3 F5 Fa F7? F2 F4 F6)",A$) <166> | 80:RETURN <205) 
2810 IFOTHEN2870 <160> | 3200 A$="{C*19}":5YSPS,20,5,A$ <155> 
2820 QG=INSTR("SL",A$) :ONNGGOSUB3200,3090 «106 | 3210 A$="iC® SPACE4 55 SA SV SE SPACE SK SE 
2830 IFQGTHEN2720 <217> | SY SS SPACES C*}":5YSPS,20,6,A$ <58> 
2840 FORI=1T08 : DOWHILEINSTR(KTS CI} ,"LCRI"}:M 3220 Ag="i( Cr} -- nennen EN S:SYSPS, 20 
ID$ (KT$ (I), INSTR(KT$ (I), "{CR}"),1)=CHR$ (13) : »7,A$ <117> 
LOOP <84> 3230 A$="{C* SPACEIT C*}":SYSPS,20.B,A$ <138> 
2850 DOWHILEINSTR (KT$ {I}, "t CEI") :MIDSCKTS CT) 3240 As="{C*19)":5YSP5,20,9,A$ 712 
‚ INSTRIKTSCIY." CE") ,1I=CHR$ (27) :LOOP:NEXTI X224> |-3250 GOSUB2630 : TRAP3270 <218> 
2860 FORI=0T024:5YS5P5,0.1,T$ (I+ME+S) :NEXTI:R 3260 POKE65286 ,PEEK (65286) AND239:OPENL,8,2,* 
ETURN <67> @0:"+N$+",S,W": FORI=1T08:PRINT#1,KT$(I): NEXT 
2870 OX=LR:QY=0: T=LEN (KT$ (0) ) : IFT=-OTHEN2910 <53> I } <11l1> 
2886 FORI=1TOT:AS=MID$ (KT$ (0) ,1.1):SYSPS,0QX, 3270 CLOSE1:POKE65286, PEEK (65286) OR16:TRAP32 
QY,A$:OX=-OX+1: IFAS="{ CE} "THENOX=-OX+9 <14> 80 :RETURN <29> 
2890 IFA$="{ CR} "ORQX>RRTHENDX=-LR : OY=NY+1 «234> | 3280 GRAPHICO,1:POKES5286 ,PREEK (652868 OR16:EN 
2900 NEXTI <115> | D <240> 
2810 T=LENIKT$(Q}) <235> 
2920 GSHAPEC$ ,0X*4,0Y"8,4:DO:GETA$:LOOPUNTIL ENDE DES LISTINGS 
Teil 2 
MC-LISTING MIT CHECKSUMMEN OVMIO »1020 22 22 22 66 AA AA 66 00 ::AC >1050 22 00 66 22 22 22 22 CC ::060 
h >1028 00 00 44 AA EE 88 66 00 ::4C >1058 88 88 AA CC CC AA AA 00 ;:CTC 
‚>1000 44 AA AA 89 68 AA A4 00 ::46 »1030 66 88 88 CC 88 88 88 00 ::0E >1060 CC 44 44 44 44 AA EE 00 ::06 
>1008 00 00 CC 22 66 AA 66 00 ::C8 >1038 00 00 66 AA AR 66 22 CC ::26 ‚>1068 00 00 DD BB 99 99 99 00 ::BD 
>1010 88 88 B8 CC AA AA CC 00 ::62 »1040 88 88 88 CC AA AA AA 00 ::A4 >1070 00 00 CC AA AR AA AN 00 ::80 
>101B 06 O0 66 88 B& 88 66 OD :;1C >1048 44 00 CC 44 44 44 EE 00 ::7E >1076 00 00 44 AA RA AR 44 00 ;:26 
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>1080 00 00 CC AA AA CC 88 
1088 00 00 66 AR RA 66 22 
21090 00 00 CC AA 883 88 88 
1098 00 00 66 BB da 22 CC 
>10AQ 44 44 EE 44 44 44 22 
210A9Q 00 00 AA AR Ak AA 66 
>10B0O 00 CO AA AA AA EE 44 
>10B8 00 00 99 99 99 EFF 99 
>10C0 00 00 AA MA Aa AR AA 
>1L0OC8 00 00 AA AA BA 66 22 
>10D0 00 00 EE 22 44 86 EE 
>10D8 AA 00 CC 22 66 AA 66 
>10E0 AR 00 44 AR AR AR 44 
>10E8 00 AA 00 AA AA AR 66 
>10F0 00 CC AA CC AA AR CC 
»10F8 10 22 44 FE 44 22 11 
>1100 00 00 00 00 00 00 00 
>1108 44 44 44 44 44 00 44 
>1110 AA AA AA 00 00 00 00 
»1118 66 88 44 AA 44 22 CC 
>1120 44 EE 88 EE 22 EE 44 
>1128 AA 22 66 44 CC 88 AA 
>1130 44 AA AA 44 BB AA 55 
>1138 44 44 88 00 00 00 00 
»1140 22 44 BB 88 88 AA 22 
»1148 88 44 22 22 22 44 88 
>»1150 00 AA 44 EE 44 AA 00 
»1158 00 44 44 EE 44 44 06 
>1160 00 00 00 00 00 44 44 
>1168 00 00 00 EE 00 00 00 
>1170 09 00 00 00 00 00 44 
>1178 22 22 66 44 CC 58 88 
»1180 44 AR AA AA AA AA 44 
>1188 44 CC 44 44 44 44 EE 
>1190 44 AA 22 22 44 88 EE 
21198 44 AA 22 44 22 AA 44 
»11A0 88 88 86 EE 44 44 44 
»11A8 EE 88 98 CC 22 22 CC 
>11B0 66 88 89 CC AA AR 44 
>11B8 EE 22 22 AA 44 44 44 
»11C0O 44 AR AA 44 AA AA 44 
»11C8 44 AA AA 66 22 44 88 
>11DO 00 00 44 00 00 44 00 
>1ı1D8 00 00 44 00 00 44 44 
>11EO 11 22 44 88 44 22 11 
Yı11lEB 00 00 EE 00 00 EE 00 
>11F0 88 44 22 11 22 44 88 
>11F8 44 AA 22 44 44 00 44 
>1200 00 00 00 FE FF 00 00 
>1208 44 AA AN EE AA AA AA 
>1210 CC AR AA CC AA AA CC 
»1218 44 AA 88 89 88 AA 44 
>1220 CC AA AR AR AA AA CC 
>1228 EE 88 88 CC 88 88 EE 
>1230 EE 88 88 CC 88 58 86 
21238 44 AA 86 AA AA AA 44 
>»1240 AA AA AR EE AA RA RA 


89 ::AE >1249 EE 44 44 44 
22 ::26 >1250 EE 22 22 22 
00977:90 >1258 AA AA AA CC 
00 ::AE 1260 88 88 88 88 
00 ::30 21268 AA EE AR AA 
00 ::76 >1270 99 DD DD FE 
00 ::26 >1278 44 AR AA AA 
DO ::1D >1280 CC AA AR CC 
00 ::6C >1288 44 AA AA AA 
CC 2:62 >1290 CC AA AA CC 
09 ::38 >1299 66 68 88 44 
00 ::42 >12A0D EE 44 44 44 
00 ::938 >12AB AA AA AA AN 
00 :;:0Q >12BO AA AA AR AN 
88 ::EB >12BB AA AA AA AA 
00 ::B7 >12C0O AA AR AA 44 
00 ::ı11 >12C8 AA AR AA EE 
00 ::Fi >12D0 EE 22 66 44 
00 ::ıD »12D9 AA 44 AA EE 
00 ::C7 >12E0 AA 44 AA AA 
00 ::BB »12EB AA 00 AA AA 
00 ::3B »12F0 32 32 CC cc 
00 ::DD >12FB 98 CC 66 32 
00 ::AD >1300 00 00 00 00 
00 ::E1 >1308 AA 00 AA AA 
00 ::51 >1310 32 32 CC. CC 
00 ::89 »1318 98 CC 66 32 
00 ::61 »1320 32 00 00 00 
088 ::25 ?1328.C0 Co Co CO 
D0 =:31 >1330 CC CC 32 32 
00 ::5D >1338 02 02 02 02 


00 ::15 >1340 00 00 00 00 
00 ::F9 >1348 FE FE FC FB 


00 ::BF »1350 02 02 02 02 
00 ::2D >1358 18 18 18 IE 
00 ::39 >1360 00 00 00 00 
00 :+61 »136B 18 18 18 IE 
00 2:89 >1370 00 00 00 F& 
09 ::29 >1378 00 00 00 00 
00 ::39 +1380 00 00 00 IE 
00 ::Al »1388 88 CC EE FF 
90 ::01 >1390 33 11 11 11 
00 1:45 21398 18 18 18 FB 


889 ::69 >13A0 CO CO CO CO 
00 3:09 >13A8 EO EO EO EO 
00 ::57 >213B0 06 06 06 06 
00 ::B5 >13B8 FE FE 00 00 
00 ;:47 >13C0 FE FE FE 00 
00 ::05 >13C8 00 00 00 00 
00 ::5€C >13D0 02 02 02 02 
00 ::52 >13D8 00 00 00 00 
00 ::FA >13E0 ODE DE ODE 0OE 
00 ::DA >13E8 18 18 18 FB 
00 ::5A >13F0 FO FO FO FO 
00 ::98 >13F8 FO FO FO FO 
00 ::4C »1400 85 DO A9 1B 
00 ::FA >1408 AF 20 49 DC 


PROSRAMFE MH 


44 44 EE 00 ::1A 
22 AR 44 00 ::04 


88 88 EE 00 ::1C 
AR AA AR 00 ::9A 


BR BB 99 00 ::9C »1438 E6 
AA AA 44 00 ::F2 >1440 4C 
88 80 88 00 ::70 >1448 DO 
AA AA 44 22 ::12 >1450 B9 
CC AR AR 00 ::BE »1458 85 
22 22 CC 00 ::D2 >1460 DO 
44 44 44 00 ;:CC »1468 DA 
AA AA 44 00 ;::188 >1470 DA 
AA 44 44 00 ::2C 1478 5A 
AA EE AR 00 ;:FA >1480 DA 
AA AA AA 00 ::D2 1498 D4 
44 44 44 00 ;:56 >1490 A4 
CC 88 EE 00 ::04 >1498 01 
AR AA AA 00 ::C6 >i14A0 FO 
BA AR 44 00 ::F4 »i4A8 85 
AA AA 44 00 ::74 >14B0 Bi 
33 33 CC CC ::51 >14B8 23 
99 CC 66 33 ::5B >»14C0 08 
00 00 00 00 ::13 >14C8 00 
AA AA 44 00 ::95 >14D0O 00 
33 34 CC 00, 1:72 >14D8B O0 
9 BErbE dI7rr7C >14E0 23 
00 00 00 FF ::5D >14EB 2D 
c0 CD CO CO ::3B >14F0 37 


cc CC 33 33 14 >150B 3F 
FO EO CO 80 59 >1510 C8 
03 03 03 03 ;:C5 »1518 47 
ıF 18 18 18 ::06 >1520 DE 


A9 13 20 49 ::DD 


>1410 DC 
»141B 0C 
::BA »1420 DB 
>»1428 C6 
>1430 E6 


>14F8 9D 
>1500 20 


»1528 EO 
21530 14 
>1538 C8 
21540 58 
21548 85 
21550 85 
>1558 91 
21560 DI 
1568 99 
21570 F5 
>1578 85 
>1580 85 
»1588 91 
>1590 DI 
1598 99 
>15A0 A9 
>15A8 DO 
>215B0 33 
>15B8 33 


ENDE DES 


AS DO 20 49 DC AD 00 ::BA 
85 DO 29 00 A2 10 85 ::BA 
86 D9 AS DO DO 01 60 ::2E 
DO E6 DA E6& DS ES DB : :AC 
Da E6 D8 E6 DB E6 DB ::84 
DB A5 D8 DO E5 E6 D9 ::Bi 
23 14 86 DO B4 DI A5 ::41 
29 FE 6A 85 DO A4 Di ;:9D 
c4 14 85 DA B9 DD 1A ::38 
DB A5 DO DO 01 60 C6 ::BC 
E6 DA E6 DA E6 DAR E& ::02 
E6 DA E6 DA E6 DA E6 ::14 
AS DA DO ES E6 DB AC ::BO 
14 20 D8 9D 86 D2 26 ::Cı 
SD 86 DI 20 DB 9D 86 ::AF 
15 D4 20 00 14 A6 D2 ;:48 
D3 20 43 14 A5 DA 29 :: AZ 
FO OB A$ OF 85 DC A9 ::07 
085 DD AC AE 14 A9 FO ::72 
DC A9 OF 85 DD A0Q 00 ::57 
DB 25 DC 85 DO Bl DA ::24 
DD 05 DO 91 DA C8 CO ::63 
DO ED 60 00 40 80 CO ::C3 
40 80 CO 00 40 80 CO ;:DC 


LISTINGS (OVM) 





Apfelmännchen 3D 





Apfelmännchen-Programme 
gibt's ja mittlerer Weile viele, 
doch haben Sieschon mal eins 
gesehen, das die Grafik nicht 
in Farbe sondern dreidimen- 
sionat darstellt? Nein? Gut, 
dann werden Sie jetzt eines 
kennanlernentl 


C16 - SA 2/89 


Nach dem Start des Pro- 
gramms haben Sie die Wahl 
zwischen sieben Menü- 
Punkten: 


1. Grafik ansehen: 
Nach dem Tastendruck kann 
das Bild für 3-4 Sekunden be- 


trachtet werden. 


2. Speichern auf Kass. mit 
Turbotape: 


Hier kann ein fertiges Bild mit 
dem "Kingsoft-Turbotape” ab- 
gespeichert werden. 


3. Speichern auf Kass. ohne 
Turbo-Tape: 
Der Name sagt alles. 


4. Speichern auf Disk: 
Dürfte ebenfalls klar sein. 


5. Directory: 
Ausgabe des Inhaltsverzeich- 
nisses {nur Disk). 


6. Neustart: 

Dadurch wird das Programm 
neu gestartet und eine alte Gra- 
tik gelöscht. Jatzt können neue 
Parameter eingegeben wer- 
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den, woraufhin eine neue Gra- Kommen wir nun zu den not- 


fik berechnet wird. 


7. Ende: 
Das Programm wird beendst. 


Ay e 





wendigen Parametern. Es gibt 
deren fünf: 
X-Links 
X-Rechts 
Y-Oben 
Y-Unten 
Max-Tiefe 
Probieren ‚Sie mal folgende 
Werte aus: -0.5/0.5/0.5/-0.5/10 
Nachdem die Parameter ein- 
gegeben wurden, wird der 
Bikdschirm blau. Aber keine 
Angst, dies ist normal und ge- 
schisht, um die Rechenzeit zu 
verkürzen. Drücken Sie wäh- 
rend des Rechnens auf die Ta- 
ste P, so können Sie das Bild 
für ca. 15 Sek, bewundern. Die 
vollständige Berachnung eines 
Bildes dauert ca. 20-30 Minu- 
ton, geht also recht flott. Um 
. diese Geschwindigkeit zu ar- 
reichen, war es notwendig, das 
Programm komplett in MC zu 
schreiben. Durch Experimente 
mit den Parametern entstehen 
die tolisten Figuren. 
Geben Sie zunächst den Teil 1 
ein. Es istein Basic-Programm, 


das Sie unter dem Namen 
"APFELBERGE” abspeichern 
sollten. Nun kann Teil 2, das 
MC-Programm, mit dem MC- 
Checker eingetippt werden. Als 
Adresse für den Checker 
soltten Sie 32000 verwenden. 
Das Abspeichern dieses Teils 
geschieht dann mit 
S"APFEL” 8(,1},1001,3528 








Programmname: APFEL- 
BERGE 

Computertyp: 016/116 mit 
64K-RAM/Plus 4 
Lauffähig auf: Floppy und 
Datasette 
Besonderheiten: Erzeugt 
hübsche dreidimensionale 
Grafik-Figuren. 
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Teil 1 
C-16 LISTING + CHECKSUMMEN {0C V1.0) PACEYDER(SPACE}3 „DIMENSION! " <223> 
170 PRINTTAB (5) "nn en 
10 REM WER Fe a ch <13> — <897> 
20 REM * * <117> | 180 PRINT" (DOWN4 RIGHT3) (C) SPACEIBY( SPACEYT 
30 REM * APFELBERGE * <48> | RIMPLEX-SOFT(SPACE}19B8B" <14> 
AO REM * mn... * <251> | 190 PRINT" (DOWN RIGHT3YWRITTEN ( SPACE} BY(SPAC 
50 REM * IN DER 3. DIMENSION " <0> E} BERND { SPACE) BACHMANN" <62> 
60 REM * um nenn * <207> | 200 PRINT" (RIGHT3YGRAPHICS-SYSTEMS( SPACE} BY{ 
70 REM * WRITTEN 1988 BY BERND BACHMANN* <176)% | SPACEIANDRE ( SPACEISCHULZE" <73> 
80 REM * AND ANDRE SCHULZE !!! « <85> | 210 PRINT"(DOWN3 RIGHT3 RVSON FLASHON)TASTE( 
90 REM # = * <187> | RUSOFF FLASHOFFY" <92> 
100 REM* {C)1988 BY TRIMPLEX-SOFT !}! <98> | 220 GETKEYA$ 194) 
110. REM <113> 230 SCNCLR <206)% 
120 SCNCLR <96> | 240 PRINT" {RIGHTS -DOWNS}YAPFELBERGEt SPACEYWIR 
130 COLORG,1:COLOR4,1:C0LOR1.2 <151> | Di SPACEIGELADEN“ <147> 
140 PRINTTAB (5) " t DOWN2}TRIMPLEX-SOFT{ SPACE}P 250 IFPEEK(174)=8THENDLOAD"APFEL“ <44> 
ROUDLY { SPACE? PRESENTS” <56> | 260 IFPEEK(174)=1THENLOAD"APFEL",i <17> 
150 PRINTTAB(5}"(5*30)" <106> | 270 END <143> 
160 PRINTTAB{5) "{ DOWN3} APFELBERGE {SPACE} INS ENDE DES LISTINGS 
Teil 2 
MC-LISTING MIT CHECKSUMMEN OVM1O >1031 60 AD 37 2F 85 23 38 EI ;:;97 >1071 45 58 50 50 50 50 50 50 ::C6 
>»1039 30 85 25 AO 00 84 24 84 ::A6 >1079 50 50 50 50 50 50 50 50 ;:C9 
>1001 25 10 FF FF 9E C2 28 94 ::29 >1041 22 78 8D 3F FF Bi 24 91 ::AB >10B1 50 50 51 50 50 51 52 52 ::Fd 
>1009 34 29 AC 32 35 36 AA 39 ::F6 31049 22 CB DO F9 BD 3E FF 58 ::4D >1089 52 58 58 58 48 34 54 54 .::4F 
>1011 39 3A ıB 4E 54 52 49 AD ::4E >1051 C6 25 C6 23 A5 25 C9 OF ::5D >1091 54 54 54 54 54 54 54 54 ::7i 
>1019 50 AC 45 58 2D 53 AF 46 ::6€ 31059 DO E7 AC 64 45 AC 2C 48 ::10 >1099 51 47 51 48 53.53 53 51 ::F9 
»1021 54 20 21 00 00 00 A5 2C ::0B >10681 42 42 59 56 56 56 56 45 ::CE J10A1l 4B 48 54 55 57 54 55 54 ::77 
>»1029 C9 40 FO 2E C9 10 FO 01 ı:EF 31069 45 53 53 58 58 57 57 5B ::AO >10A9 47 35 58 46 57 46 SD 59 ::74 
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Das neue Super Arcade- 
Adventure für den erw. 
C-16 oder den Plus 
4. Parfecta Grafik 
und viel Action 
sorgen für 
tollen 
Spielspaß. 
Cass. 29,95 
Disk. 29,95 


Bei diesam Programm mit 
der überragenden Gra- 
fik müssen Sie viel 
Taktik und schnelle 
Reaktionen zei- 
gen, um alle 
Levels durch- 
zustehen! 
Cass. 29,95 
Disk. 29,95 






Bahnhofstr. 21, 4972 Löhne 1 
Tel. 0 57 32/1 28 33 
BTX 0 57 32/7 10 61 (hamel) 






Superprogramme für den Plus 4 und den C-16/116 


ACE (64k) + ACE Il 
Für den erw. C-16 oder den Plus 4 gibt es zwei ganz 
fantastische Flugsimulatoren: 

ACE {64k) und ACE Il 

ACE (64k): Starten und Landen. Auftanken in der 
Luft. Landkartenmodus, Sprachausgabe 

Cass. 29,95 ' Dick. 38,95 
ACE H: Der absolute Luftkampf, 1 - 2 Spieler, 
superschnelle Action, Landkartenmodus 
Gass. 29,95 Disk, 38,95 





Das neue, sensationelle Quizprogramm für den C-64, den Plus 4 oder den erweiterten G-16/116 

Versuchen Sie mit hrem Startkapita) durch vorsichtiges Taktieren und viel, viel Wissen Ihren Mit- 

spielern dan Rang abzulaufen. Quizmix ist mehr, als nur ein einfaches Quiz, 1 - 6 Mitspieler kön- 
I nen bei diesem fantastischen Programm mitraten und gewinnen! Aber die Zeit läuft. Je nach 

Schwierigkeitsgrad bleiben Ihnen nur 5-30 Sekunden, um die richtige Antwort auszuwählen! Aber 

wenn Sie die richtige Antwort gewußt haben, können sie Ihren Gewinn nochmals in der Risiko- 
1 Option verdoppeln oder dan 4-fachen, 8-fachen, 16-fachen oder sogar 32-fachenı Gewirn einstrei- 

chen - oder allas verlieren. 

Bei Qluizmix werden Fragen aus allın Wissensgebieten gestellt: 

Biologie Sport Technik Geschichte Allgemaines Geografie Wissenschaft und selbetwarständlich | 

aus vielen Sonderbersichen wie Kunst, Literatur, Mathematik, Politik, Chemie, Botanik, Gompu- 











tartechnik, Raumfahrt, ect. Starten Sie ins volle Vergnügen! | Datasettenpfatlne 

ee N ee u pin 30,05 | Die Datasette wäre das Ideale Speichermedium, 
Erweiterungsdisk | (mit noch mehr Fragen) ............0020000000nneeennenensenennnannsunssnnennunneen DM 25,35 | wenn nicht häufig Ladeprobleme auftauchen würden. 
Und seibstverständlich sind alle Fragen, das Programm und die Beschreibung in deutsch, Wir | Aber mit unserer Datassttenplatins können Sie jetzt 
wünschen Ihnen gute Unterhaltung. den Tonkopf auf jedes Programm, auch das von 


Freunden, sinjustieren und ohne Problem laden! Mit 
unserer Datasettenplatine gibt es keinen Break Error 
oder Systemabstürze durch Ladefehler mehr. 
Komplsttplatina 4 

zum einfachen Selbsteinbau DM 29,95 

I Oder senden Sie uns Ihre Datasette ein. Für nur 

| DM 49,95 wird die Platins eingebaut! 





mn 


06 118-N 


I Holen Sie sich diese neue, fantastische Diskettenstation mit den Spitzenwerten und 
dem Superpreisl 

Umschaltbare Geräteadresse, 5 1/4 " Laufwerk, passend an C-16/116, Plus 4, C-64 und 
C-128, Power Reset, Slim-Line-Design, 30 % schnelierer Trackzugriff und, und, und... 
Und diese fantastische Diskettenstation gibt's zum wirklichen Superpreis DM 298,-- 


Krösus | Profi-Disk 
Wirtschaftsimulation für den erw. C-16 | Die professionelle Benutzeroberfläche 


oder den Plus 4, vollst. in Deutsch, Bör- il zur einfachen Diskettenbehandlung, Un- 
senkurse und Weltwirtschaft! scratch, Schutztile, ID-ändern, und vie- 


| les mehrl 
Disk. 29,86 Cass. 29,95 | Disk. mit deutscher Anleitung DM 29,95 


— | Operation Thunderstorm 


Anwendersoftware 
Miero-Text 29,95 Ein tolles, unlerhaltsames Textadventure für 












| Tolle Spiele für C-16/116 oder Plus 4 | 




























Sommer Olympiade 
Winter Olympiade 
Tube Runner 
Omnibus I 

G-15 Compilation 
‚Arthurnoid 

Sextett 




















Micro-Datei 2995 2995 | den erw. C-16. oder den Plus 4, Viel Überte- | Mercsnary Comp, 
Paintbox 2995 2995 | gung undtolle Gags sorgen für unterhaltsame | . Indoor Sports 
Music-Master 2995 2995 | Winterabende, Selbstverständlich komplett in | Strip Poker N 
Miero-Kalkı 25 29,95 Deutsch! Cass, DM 29,98 Disk, DM 29,96 





Bestellen Sie ganz einfach mit einer Postkarte oder einem Brief. Bei Vorkasse (Scheck oder Bargeld) sparen Sie die Nachnahmegebühr 
in Höhe von DM 5,-! 
Oder benutzen Sie unseren 24-Std. Anrufbeantworter für Ihre Bestellung. Selbstverständlich können Sie auch neueste C-16/Plus 4 Info 
anfordern! Kostenlos natürlich! Oder besuchen Sie unseren Hard/Softwareshog mit vielen Programmen für den ©-1 6/Plus 4. 






















BEN PROCEVADME 


>10B1 
>10B9 
>10C1 
1009 
>L0D1 
>10D9 
»10EL 
>10E9 
»10F1 
>10F9 
>1101 
>1109 
>1111 
>1119 
>1121 
>1129 
>1131 
1139 
>1141 
21149 
»1151 
21159 
>1161 
>1169 
>1171 
>1179 
»ı1181 
>1189 
»1191 
>1199 
>1131 
>11A9 
>ı11B1 
>11B9 
>11cC1 
>11CH 
>11D1 
>11D9 
>11El 
»11E9 
>ı1ıFı 
>11F9 
>1201 
>1209 
1211 
>»1219 
»1221 
>1229 
>»1231 
21239 
>ı1241 
>1249 
>1251 
1259 
>1261 
>1269 
»1271 
»1279 
»1281 
>1289 
1291 
21299 
>12Al 
>12A9 
>12B1 
>1289 
>12C1 
21209 
»12D1 
>12D9 
>12E1 
>12E9 
>12Fi 
>12F9 
>1301 
21309 
»1311 
1319 
»1321 
21329 
>»1331 
21339 


38 


5A 
5A 
50 


54 
5A 
sc 
46 
2C 
AF 
72 
3D 
c6 
92 
85 
9A 
JA 
28 
D6 
D2 
3D 
94 
08 
31 
69 
Al 
DI 
OA 
AO 


SA 
5A 
5C 
5C 
20 
6F 
8A 
3D 
33 
CF 
51 
9E 
DB 
5B 
69 
D2 
3D 
c7 
00 
38 
70 
A8 
27 
9E 
Al 
83 
co 
6B 
c9 
A9 
47 
A2 


Bi 
AS 
a5 
c5 


5A SA 
50 50 
SD SD 
5C 5D 
2c F4 
06 CD 
5A 3D 
3D 3D 
DA 59 
71 44 
9F 0C 


84 84 :: 
85 ES :: 
AO 54 : 





::4E 
::9F 
::9B 
::ı7F 
::CD 
»:2A 
::29 
1:95 
:;AE 
::FC 
::A2 


D2 D2 :: 


D2 3D :; 


ıF EC 
2F C4 


DE 15 :: 


a6 AD :: 


7E 65 :: 


B6 BD : 
00 00 :: 
7B 97 :: 
81 82 :; 


84 80 :: 
80 90 :: 
05 DD :: 


CI Ca: 


24 64 :: 


9 


86 52 : 


BO 13 ;: 


sa OB 


c9 64 : 


85 22 


FF 36 :: 
65 AS :: 


F1 a5 


64 65 :: 


D5 98 :: 


30 MM : 


70 DO 


6B C5 :: 


33 DO 


VE 65 6A 85 33 


>1341 
1349 
>1351 
>1359 
1361 
»1369 
>1371 
>1379 
>1381 
>1389 
21391 
>1399 
>19A1l 
»13A9 
>13B1 
>13B9 
»A3c1 
>13C9 
>13D1 
>13D9 
>13E1 
?13E9 
>13Fl 
>13F9 
>1401 
1409 
»1411 
21419 
»1421 
21429 
>1431 
>1439 
>»1441 
21449 
>1451 
>1459 
21461 
>1469 
>1471 
31479 
>1481 
1489 
>1491 
21499 
>1AaAl 
>14A9 
>14B1 


>14B9° 


>14C1 
>14C9 
>14D1 
214D9 
>1aEl 
21489 
»iaFi 
>14F9 
»1501 
»1509 
»1511 
>1519 
»1521 
>1529 
21531 
21539 
1541 
21549 
>1551 
»1559 
1561 
1569 
>1571 
1579 
>15B1 
>1589 
»1591 
1599 
>15Al 
»i5A9 
>15B1 
>15B9 
>15C1 
>15C9 


34 E6 
SA 02 
5C E4 
04 AD 
8D IF 
FO 25 
A9 01 
02 Fü 


OE 0A 
66 10 
61 FO 
04 DO 
2D 5A 
64 85 
sF 489 
30 DD 
30 DI 
c5 62 
Da 10 
A9 7F 
Fü B9 
84 69 
A5 6C 
85 6C 
E6 6D 
po 08 
84 6D 
10 FA 
86 69 
10.03 
co 07 
66 41 
56 A5 
61 20 
02 A5 
6D CA 
30 13 
5A D2 
85 65 
ED AS 
44 24 
a5 654 
c9 81 
c9 F9 
63 DO 


Fo 13 
62 4A 
FB 85 
66 10 
85 GE 
03 AC 
F2 43 


0C A5 
6D 25 
64 85 
65 AC 
00 85 
81 90 
a5 6A 
06 6E 
AS 6B 
60 A9 
01 40 
60 20 
a5 9A 
a9 40 
FF 85 
5B 49 
20 49 
BI 32 
58 20 
14 FO 
00 Bl 
c8 Bl 
15 DO 
oc 98 
DE E6 
58 ac 
a5 51 


02 ::DA 
86 ::56 
08 :;DF 
61 ::8C 
FF ::ED 
DI -:#5r: 
A9 ::C7 
FF ;:53 
9,2000 
ac ::17 
69 ::90 
66 ::C5 
02 ;:DA 
02 ::5F 
80 ::20 
DO ::7A 
As 2238 
DO ::AA 
AS 2:28 
c5 ::94 
AS DB 
BO ::68 
B4 ::4F 
10 ::BB 
49 ::07 
E6 ::44 
A5 ::33 
CA ::57 
A5 ::El 
8A ::46 
4E ::3C 
40 ::6B 
B9 ::B3 
66 sell 
ACC ::33 
64 ::9E 
69 ::FB 
A2 ::5A 
AI ::BC 
48 ::EO 
04 ::D2Z 
03 s:A6 
DO ::D4 
£E9 ::C9 
69 ::3D 
62 ::9E 
DO ::47 
63 ::B5 
BD ::8F 
28 ::D2 
SB ::52 
02 :;:FA 
ac ::D9 
45 ::E3 
4E ::D3 
64 ::BF 
OA ::5D 
6D ;:16 
ac ::86 
13 ::BA 
90 ::73 
6B ::AA 
49 ::BÜ 
49 ::FC 
2C ::D6 
10 ::E2 
A5 ::10 
AO ;:AC 
8D ::1A 
DE ::A4E 
40 :; BE 
24 ::A6 
33 ::1C 
20 ::65 
BD ::99 
FF ::3D 
c8 ::DB 
14 ::98 
41 ::25 
DA ::A7 
A5 ::D6 
4C 2:20 


>15D1 
31559 
>15E1 
31589 
>15F1 
>15F9 
>1601 
>1609 
31611 
>1619 
>1621 
>1629 
31631 
>1639 
>1641 
31649 
>1651 
>1659 
>1661 
>1669 
31671 
>1679 
>1681 
>1689 
>1691 
>1699 
>16A1 
>16R9 
>16B1 
>16B9 
316C1 
>16C9 
>16D1 
>16D9 
>16E1 
>16E9 
>16F1 
>16F9 
>1701 
31709 
>1711 
>1719 
>1721 
31729 
31731 
31739 
31741 
>1749 
>1751 
31759 
21761 
31769 
>1771 
>1779 
>1781 
>1789 
>1791 
31799 
>17A1 
3179 
>17B1 
31789 
>17C1 
>17C9 
>17D1 
>17D9 
>17E1 
>17E9 
>17F1 
>17F9 
>1801 
>1809 
»1811 
>1819 
>1921 
>1829 
>1831 
>1839 
>1841 
>1849 
>1851 
>1859 


DO 17 E6 3A DO 


C16 - SA 2/89 


PROERAMME 


1861 13 AO 00 18 65 39 85 39 :ıE6 >1APi 29 1F 10 96 A0 01 786 ED ::DO >1D81 A9 FF 8$ OD AD 02 78 8D ::E4 
31869 90 0A E& 3A DO 06 AO 00 ::59 >1AF9 3P FF Bi 39 8D IE FF 58 ::33 >1D99 3F FF Bi 64 B5 63 88 84 ::49 
>1871 E6 39 FO F6 78 8D 3F FF ::EO >1B01 E6 39 DO 1E E6 3A DO 1A ::B6 >1D91 OE Bi 64 85 62 88 Bi 64 ::6F 
>1879 Bi 39 8D 3E FF 58 10 99 ::96 >1B09 DO 0C A2 00 86 OD 85 0E ::Fi >1D99 8D 3E FF 56 85 61 AC 71 ::97 
1881 C9 CO BO 03 AC OD 49 C9 ::OF >»1Bll AD EF 04 AC AS AB C9 E7 ::R5 >1DA1l 48 AO 006 2C 59 02 78 8D ::6F 
>1889 EO BO 68 AA BC 85 40 78 ::0B >1819 FO DA C9 FO BO DO 29 07 ::9A >ıDA9 3P FF Bi 5F BD 3E FF 58 ::80 
>1891 8D 3P FF Bi 2D 10 DF 8D ::87 >ıB21 AO 01 85 61 84 DE AS 39 1:24 >ıDBi 30 96 C8 78 BD 3F FF Bl ::FE 
31899 3E FF 58 Ca A5 DE 30 34 ::92 >1B29 AA 18 65 61 85 39 A4 3A ::0C >1DB9 5F 8D 3E FF 5B 10 OF 70 ::06 
>ıaA1l 20 34 4F AC DS AB C6 Bi ::37 >1B33 90 02 E6 3A EB DO Di CO ::29 >1DC1 AD 85 OD A6 49 A5 4A 86 ::75 
>18A9 2D BD 3E FF 58 30 37 A5 ::3PF »1B39 86 62 84 63 86 6C 94 6D ::EO >1DC9 64 85 65 AC 85°4D 70 03 ::42 
>18B1 OE 10 07 84 22 20 Fi 4E ::BD >1B41l A9 6B 85 50 A9 00 85 51 ::22 >1DD1 AC FB 4C A5 0E 10 03 20 ::63 
>18B9 A@ 22 C6 24 70 10 03 20 ::46 >1B49 65 6E 4C CB 52 86 OD FO ::62 >1DD9 Pi 4E AS 70 10 03 20 AO ::74 
>»1BC1 AD A2 A5 61 91 2D C6 A5 ::B3 >1B53 5D C9 AA FO GE C9 AC 90 ::29 J1IDEL A2 AO 00 AS 61 91 49 CB :: FE 
»19C9 66 09 7F 25 62 91 2D CE ::35 >1B59 47 DO 08 86 OE 20 28 95 ::51 >1DE9 AS 66 09 7F 25 62 91 49 ı:D2 
>18D1 AS 63 91 2D CO AS 64 91 ::C5 >1B61 dC 6F 48 C9 AE 90 31 DO ::3F >ıDFı Ch AS 63 91 49 Ca A5 64 ::4D 
>18D9 2D CB AS 65 91 2b AQ 00 ;:74 >1B69 25 AO 01 84 DE 20 FA 94 ::78 >1DF9 91 49 CH AS 65 91 49 AO ::89 
J1BE1 6C 59 02 AC 71 AB 98 39 ::9A >1B71 A9 00 85 6E 85 51 A9 79 ::62 >IEC1 00 aC 59 02 AC 71 48 BA ::B4 
>1BE9 65 2D 85 49 AS 2E 69 00 ::9P 31579 65 50 78 BD 3P FF AO FF ::E2 >1E09 65 72 65 59 85 4A AQ 19 ::BF 
»i8F1 4C OD 4E CS ES BO 15 &D ;::16 >1B81 CE Bı 7A DO FB 94 61 HD ;:82 S1E11 85 16 AS 61 FO 69 AS 63 +:0D 
31879 59 02 E6 39 FO 0A C9 EA ::8F >1B89 3E FF 58 4C CB 52 20 D4 :ı6C >1Eı19 CA 34 DO 04 A4 62 Ca 33 ::57 
>31901 90 03 AC F9 4B AC 3A AA ;:9D >1B91 94 AO 01 84 OE 4C 6F 48 ::EA >ıE21 90 5D AS 65 FO 46 AA 34 ::7C 
>1909 E6 3A DO F2 AE 59 02 &D ::A6 >1B99 86 OE 20 55 95 4C 6F 4B ::04 >1E29 AS 33 38 E9 02 BO 02 88 ;:16 
>1911 59 02 FO 7F A4 OE DO 70 ::0B >ıBAt 685 OE AS 90 10 01 CA 86 ::98 >1E31 368 ES 61 BO 01 88 CA 32 ::55 
>1919 AS 61 DO 04 85 64 FO 44 :: >1BAQ 64 85 65 AC 6F 48 AD FO ::h7 >1E39 DD 02 C5 31 50 03 20 45 ;:C8 
>1921 24 70 10 03 20 AO A2 AS :; yıBB1 04 65'653 AD Fi 04 85 64 ::4D »ıE41 SE 85 62 85 33 84 63 BA ::ED 
>1929 64 05 65 DO 45 AS 61 C9 :: >18B9 30 05 AO 00 AC F2 50 18 ::06 »>1E49 34 7a 8D 3F FF AO 02 Bi ::7F 
>1931 83 90 3F E9 90 10 3B C9 :: >ıBC1 4C B5 46 86 DE A9 39 AO 1:47 >1E51 54 85 23 6A B1 64 95 22 ::E6 
>1939 F9 BO 16 69 07 AR AS 69 :: >1BC9 94 20 22 A2 AC 6F 48 DI ::&C >1E39 A4 61 9a FO 07 Bi 22 91 ::F4 
>1941 DO 30 A5 62 EB FÜ 06 AA :: >1BD1 39 18 65 2F 85 69 C& BI ::4F »IESL 33 89 DO FO BI 22 91 33 ::E6 


>1949 BO 28 Ed DO FA 86 64 FÜ 
21951 13 AA AS 63 85 20 AS 62 
>1959 4A 66 28 RO 15 EB DO FA 


>1BD9 39 65 30 85 6A E6 39 DO ::20 >1E69 8D 3E FF 58 AM, 61 A6 63 ::09 
>ıBEi 02 E6 3A AO 00 B1 69 AR ::AD >1E7ı AS 49 91 62 A5 4A C6 DD ::EE 
>1BE9 18 65 2F 85 5F CB BA 11 ::60 >1E79 02 E6 63 91 62 86 63 AD ::95 


ande 


ov,ro UGSammpann>onupanay 
SEESESERITHRSDESSRLBrA0> 


>19C9 85 64 AS 2E 69 00 85 4A 


0 z:F >1EEI 64 66 65 A9 80 85 CE 60 ::4A 
S19D1 BS 65 AO 02 Bi 49 85 63 >ıC59 FF DI SF 90 OB DO 06 CB 4 


>1C61 6B Di SF 90 05 AC A3AC :: JiEFi A0 00 84 DE 84 70 Ba 61 ::4B 
>19D9 88 84 DE Bi 49 85 62 98 Sicks Ca 68 85 71 BD 3E FF 58 ;:5E »1EF9 84 62 84 63 A2 90 A5 64 2:4 
>19E1 Bl 49 BD 3E FF 58 55 >1C71 C6 OB FO 5A CB 68 30 17 ::01 >»1F01 85 66 10 05 20 5B 47 AS ::90 
>19E9 AC 71 48 C9 A6 90 03 AC :: IF 31079 68 85 6E 68 85 69 68 85 ::00 >1F09 64 DO 08 A2 88 AS 65 FO ::95 
>19F1 7C AA E6 39 FO 09 AO 00 ::F6 >1C81 6A 68 85 6B 6B 68 20 21 1:72 >1F1l 16 84 65 30 06 CA 06 65 ::69 
>19F9 C9 A4 90 3D AC F9 AB E6 ::56 >1C89 45 A5 6D 48 A5 6C 46 68 ;:94 >1F19 2A 10 FA 65 62 AS 65 85 :;37 
>1A01 3A DO FI C& Bl 2D 85 61 ;:1C >1C91 85 6C 78 8D 3F FF DI 5F ::BA Jyir21 63 86 61 84 64 94 65 60 ::Bl 
>1A09 C& Bi 2D 85 66 09 80 85 ::04 >1C99 90 OF DO 06 CB 68 Di 5F ;:F2 >1F29 A5 OR 29 80 65 0C FO F? >; 

>»1A1l 62 CB Bi 2D 85 63 CB Bi :: CF >1cA1 90 09 8D 3E FF 58 4C 19 ::ES >ıF31 AA 30 BD 24 70 10 03 20 ::C6 
>1A19 2D 85 64 CB Bi 2D 8D 3E ::04 >1CA9 99 CB 68 85 6D 8D 3E FF 1:53 >1F39 AO A2 AS 61 C9 81 90 AD ::92 
>1A21 FF 58 85 65 AO 00 84 OE ::99 »ıch1 S8 AR A5 72 05 71 18 FO ::17 »ıF41 A6 66 30 30 E9 90 10 5B ::57 
>1A29 84 OD 84 70 AC 71 48 Bl ::CF >1CH9 OA 20 2F 9A BR 65 6D AA ::6F >1FA49 A6 66 30 28 C4 F9 BO 10 ::1D 
>1A31 39 E& 39 DO OE E6 3A DO ::FB >1CC1 98 MM 22 65 6C B6 71 85 ::36 >1F51 69 07 AA AS 62 E& FO 04 ::83 
>1A39 DA 29 03 78 8D 3P FF C9 ::14 >1CC9 72 C6 OB DO A7 6A A6 72 ::DD >1F59 4A EB DO FC B6 64 FO 0D ::EO 
>1Aaı 03 FO EC 85 48 85 60 B1 ::C4 »1cDi 0A 26 72 24 45 30 52 24 ::00 »ıF61 AA AS 62 4A 66 63 EB DO ı: 

>1A49 39 8D 3E FF 58 85 47 OR ::83 >ICDE 46 10 023 4C 64 AD DA 26 1:CC >1F69 FA 85 64 A5 63 65 65 A9 ::64 
>1A51 26 60 OA 26 60 OR 26 60 ::2D >ICEL 72 65 71 90.02 EB 18 65 ::16 >1F71 80 85 OE 60 E9 90 30 12 1:91 
»1A59 38 ES 47 AB A5 60 ES 48 ::E6 JICE9 5B 85 49 BA 65 72 65 59 ::9A >1F79 DO 29 A6 62 EO 61 BO 23 ::82 
>»1n61 AA 98 18 65 2D 85 SF BA ;:19 >ICFi 85 4A 2C 59 02 50 03 AC ::6D >ıFal AS 63 05 64 05 65 FO Da 1:51 
>1A69 65 2E 85 60 AS SF 69 02 ::B5 >ICF9 DA AD AO 04 78 BD 3F FF ::CA >»1F39 DO 19 AA 20 61 9F AS 62 ::FA 
>1A71 85 49 AS 60 69 00 85 4A :: 11 >1D01 Bl 49 85 65 88 Bi 49 85 ::79 >1F91 38 6A 66 63 EB DO F9 FÜ :ı31 
>1A79 AC A2 AD C9 E6 90 03 AC ::81 >1D09 64 88 B1 49 85 69 88 Bi :: FC >1P99 DO A5 ODE 10 09 A6 65 AS ::38 
>1A81 09 AB C9 BO 90 OF 85 DE ::92 >1D11 49 85 66 09 80 85 62 88 ::63 >1FAl 64 10 2B AC IC 99 A5 66 ::CA 
>1A89 29 OF 85 65 AO 00 84 64 ::E9 >1D19 Bi 49 8D 3E FF 58 85 61 ::CE »1FA9 30 FY 24 70 10 03 20 AO ::58 
>1A91 84 OD AC 71 48 A2 00 C9 ::6D >1D21 84 OD 84 ODE 84 70 AC 71 ::70 »ırfBı A2 AS 61 C9 81 BO 05 A9 ::13 
>1A99 A9 90 03 4C AE AB AO 01 ::65 >1D29 48 65 58 85 49 A5 72 65 ::05 >1FB9 00 AA FO 12 E9 91 10 E23 s:BF 
>1ARı 85 OE 78 8D 3F FF C9 A7 ::EA >1D3t 59 85 4A AO 00 2C 59 02 ::96 >I1FCı AA AS 62 EB FO 06 AR 66 ::A4 
>1AA9 90 Os DO 17 Bi 39 AA CB ::DC >1D39 70 ıB C8 78 8D 3F FF Bl ::FO JiFC9 63 ER DO FA A6 63 85 15 ::4E 
>1ABL Bi 39 8D 3E FF 58 85 65 ::63 31D41 49 85 65 88 Bl 49 BD 3E ::F6 >1FD1 86 14 60 AS OE 10 07 A6 ::59 
>1AB9 86 64 CB 98 AO 00 84 OD ::FD >1D49 FF 58 85 64 A9 80 85 OB ::94 >1ıFDY 65 AS 64 DO C6 60 24 70 ::AD 
J1ACı 4C 64 48 B1 39 85 61 CB ::AD >ıD51 84 0B AC 71 48 A5 0E 10 ::DE >1FEL 10 03 20 AO A2 AS 66 30 1:49 
>1AC9 B1 39 85 66 09 80 85 62 ::0D >1D59 03 AC F7 AD 20 34 4F AO ::2B J1FE9 BA AS 61 C9 81 90 16 EI ::1A 
JıADı CB BI 39 85 63 CB Bl 39 ;;12 >1D61 00 FO F6 65 71 90 02 EB : ” >iFFi1 89 10 BO AA AS 62 EB FO ::CE 

)) 
92 


3 
>1961 85 54 A5 28 55. 65 AU BO ; >iBF1 69 FO 72 Bi 69 AC 12 AC ;:22 >1ES1 02 78 BD 3F FF Bi 49 85 ;:7C 
>1969 24 66 10 IE 20 5B 47 AC ; >1BF9 78 8D 3F FF DO Di Bi 39 ;:F4 >1EBY 6B 88 Bi 49 85 6A 88 Bl ::AE 
>1971 89 49 AS 65 48 A5 64 48 :: >1C01 AB 18 Bi 2F AA 65 2F 85 ::ES5 >iE91 49 8D 3E FF 58 FO 0C AG ;:D4 
31979 A5 69 48 AS 62 AB AS 61 :: >1C09 5F CB BA 11 2F FO 56 Bl +::63 >1E99 91 6A A9 FF CB DO, 02 E6 ::19 
»1981 48 AS 66 48 98 48 FO 08 :: >1C14 2F 65 30 85 60 AO 01 Bi ::F9 >1EA1l 6B 91 6A AO 02 A5 63 91 ::2F 
31989 A5 65 AB AS 64 48 98 48 :: >1C19 SF 83 46 88 Bi 5F 85 45 ::0A >1ER9 49 88 AS 62 91 49 84 AS ::02 
21991 AD 59 02 C9 AO BO 54 AR >: >ic21 AO 04 Bi 5F &D 3E FF 58 ::62 >1EB1 61 91 49 BC 59 02 4C 71 ::C2 
21999 BC C5 40 78 8D IF FF DI :: >1C29 85 OB OA 69 05 65 5F 85 ::DA >1EB9 48 66 16 69 91 85 55 68 ::91. 
>19A1 2D 10 19 85 0E CE CA BI :: yıcal 58 A9 00 65 60 85 59 C6 ::38 >1EC1 69 00 85 56 64 85 OE DO ::397 
>19A9 2D 85 64 CB Bl 2D BD 3E :: >1C39 68 30 17 68 85 6E 68 85 ::2P >1EC9 OE 95 70 6B 95 66 68 85 ::EC 
>19B1 FF 58 85 65 AO 00 84 OD :; »1Cat 69 68 85 6A 68 85 6B 68 ::20 >1ED1 61 68 85 62 68 85 63 68 ::52 
>19B9 AC 71 48 CO Bl 2D 10 43 :: >1C49 68 20 21 45 A5 6D 48 A5 ::6B | >IEDI 85 64 66 85 65 6C 55 00 ::64 
>19C1 85 OD 98 38 65 2D 85 49 :: >1C51 6C 48 68 85 72 78 8D IP ::92 >1EE1 A2 00 A5 66 10 01 CA 86 ::34 

ı2 


a 

ri 

Bar 

u 

SB 

. 

. 
“ 
» 


>1ADY 85 64 CB Bı 39 BD 3E FF ;:71 >1D69 18 65 58 85 49 2C 59 02 : »>ıFF9 04 4A EB DO FC AR 86 65 ::62 
>1AEL 58 65 65 AO 00 84 OD 84 ::9F »1D71 50 03 AC 08 4E 85 64 BA : >2001 A9 00 85 64 60 A2 00 FÜ :;515 
MAEI OB A9 06 AC 64 48 85 0E ::5C >1D79 65 72 65 59 83 AA 89 65 : >2009 F3 AS 61 FO 2C A6 65 DO ::4E 


Ci6 - SA 2/89 39 








BEE PNROER/AHMBE 


>2011 
>2019 
>2021 
22029 
»2031 
>2039 
>2041 
>2049 
>2051 
2059 
>2061 
>2069 
>2071 
>2079 


>2081° 


»2089 
>2091 
>2099 
>20A1 
>20R9 
>20B1 
>208B9 
>20C1 
>20C9 
>20D1 
>20D9 
>20E1 
>20E9 
>20F1 
>20F9 
>2101 
>2109 
>21ll 
>2119 
>2121 
>2129 
>2131 
>2139 
>2141 
>2149 
>2151 
32159 
>2161 
>2169 
»2171 
>2179 
>2181 
>2189 
>2191 
>2199 
>21A1 
y21A9 
>21B1 
>21B9 
»21Cc1 
>21C9 
>21D1 
>21D9 
>21E1 
>21E9 
>21F1 
>21F9 
>2201 
>2209 
>2211 
>2219 
»2221 
>2229 
>2231 
>2239 
>2241 
>2249 
>2251 
»2259 
>2261 
>2269 
>2271 
>2279 
>2281 
»2289 
>2291 
»2299 


40 


85 
A5 
85 


16 
62 
33 
02 
62 
6A 
4E 
90 
EO 
05 
10 
A5 
90 
2 
34 
15 
05 
AA 
A2 
8D 


a6 
c5 
20 
E& 
8D 
48 
A9 
02 
95 
85 
03 
VE 
oD 
20 
ar 
AU 
65 
19 
ac 
3F 


63 
33 
02 
24 
3E 
AS 
00 
EI 
ac 
66 


.20 


30 
24 
58 
ac 
FF 
FO 
4E 
9B 
FF 
65 


6E 


E4 ::00 
DO ::4A 
E6 ::ED 
78 ::BC 
FF :ıFF 
0E ::A2 
85 ::3F 
34 ::59 
6F ::C5 
46 1:56 
5B ::1B 
F9 ::B0 
70 ::2D 
A3 ;:F9 
71 ::9D 
A5 ::EF 
01 +:B6 
86 ::A5 
50 ;::56 
Bl ::A6 
84 ;:6E 
48 ::8B 
DO ::8D 
E4 ::B8 
DO :;02 
E6 ::A5 
AS ::DC 
84 :: FC 
48 ::B2 
22 ::ıB 
16 ::5D 
412 ::€ı 
33 ::84 
092 ::C0 
96 ::D5 
4C 2:52 
$F ::EO 
6D ::B&ö 
6B ::E8 
00 :: 
52 ::66 
06 :;:DB 
33 ::Ai 
88 :;58 
07 ::39 
85 ::50 
AD ::44 
91 ::D1 
FF ;:DC 
10 ::F6 
BO ::1 
59 ::46 
18 ::70 
04 ::4B 
FF ::97 
69:61 
98 ::BB 
0E ::BC 
aD ::EE 
OD ::2D 
Fü sıT2 
A5 ::D2 
OI27=81 
BO ::90 
SE ::1B 
"63 ::18 
AS 3:D3 
AR ;:54 
90 ::D2 
32 ::48 
AA t:E6 
689, ::5C 
AA ::01 
AR ::ı9A 
0A ::E3 
64 ;:ıDF 
ar ::31 
85 ::50 
78 ::3C 
Bil ::B8C 
90 ::ıD 
A2 ::0A 


>22R1 
>22h9 
»22Bi 
>2259 
»22C1 
>22C9 
»22D1 
>»22D9 
>22E1 
>22E9 
»22F1 
>22F9 
»2301 
»2309 
»2311 
>2319 
>2321 
>2329 
»2331 
22339 
»2341 
>2349 
»2351 
»2359 
>2361 
?2369 
2371 
22379 
>2381 
>2389 
>2391 
r2399 
>23h1 
>23A9 
>23B1 
>23B9 
>23C1 
32309 
>»23D1 
»23D9 
»>23E1 
>23E9 
»23F1 
>23F9 
>2401 
22409 
»2a11 
2419 
»2421 
2429 
2431 
>2433 
>2441 
>2449 
>2451 
»2459 
>2461 
>2469 
2471 
2479 
>2481 
>2489 
2491 
22499 
»24Al 
>24A9 
>24Bl 
>2459 
22401 
>»24C9 
>24Db1 
>24D9 
>24El 
>24E9 
>24Fl- 
>24F9 
22501 
>»2509 
>»2511 
>2519 
»2521 
2529 


00 
AA 
14 
OA 
02 
61 


.E9 


BO 
3 
85 
3E 
65 
65 
22 
91 
AB 
DO 
A6 
95 
95 
64 
ac 


FF ::67 
BO ::4B 
90 ::19 
90 ::EB 
A5 ::99 
38 ::DA 
61 ::3B 
5 ::65 
62 ::5D 
8D ::8A 
65 ::59 
00 ::4D 
Bi ::60 
22 ::83 
61 :;BE 
£B ::E2 
63 ::39 
61 ;:EF 
63 ::EA - 
85 ::5B 
16 ::99 
SA ::B4 
AD ::4E 
49 ::63 
03 ::BB 
39 ::48 
00 ::EC 
A7 ::EC 
8D ::38B 
58 ::EB 
AA ::DD 
6A ::76 
6B ::BE 
41 ::85 
SA ::F8 
20 ::6F 
DB ::46 
22 4178 
30 ::AA 
62 :;Al 
33 ::51 
02 ::92 
8D ::FE 
5B ::E2 
EE ::40 
DO ::84 
9B :;E7- 
06 ;:7C 
1D ::FB 
D2 ::6E 
Bl ::30 
99: FE 
OA ::B6 
19 ::37 
20 ::CC 
65 ::FO 
90 ::45 
N 
FF ::57 
02 ::39 
D2. ::5E 
20 ;::C4 
CC; :SE 
DE ;:7B 
06 ::9E 
13.2534 
Bi ::B4A 
BO ::BO 
A5 ::14 
64 ::BC 
4C ::C6 
AS ::CE 
8E ::57 
00 ::AE 
9D ::86 
AC ::ED 
AB ::64 
00 ::A7 
91 3:78 
84 ::84 
8E.::EF 
FO ::CcF 


»2531 
r2539 
>2541 
>25493 
>2551 
»2559 
»2561 
22569 
»2571 
2579 
>2581 
>2569 
>2591 
2599 
>25A1l 
>25A9 
>25B1 
»25B93 
2501 
2509 
>25D1 
>25D9 
>25E1 
+25E9 
>25Fi 
2579 
32691 
22609 
>2611 
>2619 
»2621 
>2629 
»2631 
»2639 
r2641 
>2649 
2651 
22659 
>2661 
>2669 
>2671 
2679 
>2681 
>2689 
»2691 
>2699 
>26A1 
>26A9 
>26B1 
>2689 
»26C1 
>26C9 
226D1 
>26D9 
>26E1 
>26E3 
>26Fl 
>26F9 
>2701 
2709 
>»2711 
»2719 
>2721 
>2729 
>2731 
22739 
>»2741 
>2749 
>2751 
>2759 
>2761 
>2769 
»2771 
22779 
>2781 
»2789 
»2791 
2799 
>27Al 
>27R9 
>27Bl 
»27B9 


C16 - SA 2/89 


De Per 


an du At dr on du an me 
ErErTEr Fuer - 


ar ab ar de me 
mar m 


PROECRAMME Ba 


>27C1 51 A9 02 4C 65 48 AS 61 ::F5 >2A51 06 4C D4 AF AC IC 99 68 
»27C9 DO 48 FO F5 8C 59 02 CB ::14 >2A59 18 69 01 85 45 68 69 00 


° »2CE1 85 63 85 23 89 Bil 64 85 ::25 
| 

>27D1 BE 5A 02 AS OE FO 07 AS ::13 »2A61 85 46 68 10 DA 68 DO EC : 
3 


4 

c »2CE9 22 85 62 89 Bi 64 8D 3E :: IF 
6 >acrl FF 58 85 61 20 BA B7 4C ::3€ 
6 »2CF9 55 AB AC 1C 99 20 2B B7 ::00 
:BA >2D01 4C 55 49 20 DA AF CA FO ::80 
137 >2D09 06 CA DO EE A2 FD 2C A2 ::54 
:F7 >»2D11 FA 78 BE 08 FF AD 08 FF ::2B 
Sch) >2D19 8E 08 FF Ch 08 FF DO F2 ::77 
>2D21 58 49 FF AB 29 OF AA BD ::8A 
38 »2D29 FO BF CO Of 90 02 09 80 ::5B 
:47 >2D31 4C EA 50 A9 19 85 16 A4 ::67 
»F3 >2D39 61 FO 17 CO 04 90 02 AO ::6E 
>»2Daı 04 78 8D IF FF 88 Bi 62 ::17 
:07 >2049 99 E7 04 88 10 FO 80 3E ::F4 
* »2p51 FF 58 AC 55 46 20 61 5D ::iC 
:46 »2D59 A9 FF BD F3 04 4C 6F 48 ::C5 


»2709 64 FO 06 4C 1C 99 20 PF ;::80 >2A69 69 85 65 AA 6C 45 00 68 
>27E1 AF 78 8D 3F FF Bl 39 AA ::EA »2A71L 30 E2 66 38 E9 89 10 DE 
>27E9 AS 65 FO OB 0A BO 08 Di ;:8D »2A79 AB 68 RA 68 68 68 8A CO 
»27F1 39 8b 3E FF 58 90 04 8A ::A5 >2AB1 FO E? 4A CB DO FC FO EL 
>»27F9 4C 62 48 Ad 4E 5A 02 BO :ı: >2AB9 20 24 5A 20 4E 5A 86 AC 
>2901 12 88 6A DO 02 A9 02 65 ::5F >2A91 C6 OB FÜ 37 20 AE 5A B6 
>2809 39 AB A5 3A 69 00 48 A9 ::1E >2A99 AE E0O 03 90 05 BE 77 02 
>2811 8D 48 C8 78 8D 3 FF B1 ::4A »2AAi C6 AD C6 OR FO 25 20 4E 
»2819 39 AA CB B1 39 BD 3E FF :: FF >ZARY 5A 86 AD C6 OB FÜ IC 20 
»2821 58 85 39 B6 3A AD 00 4C >2ABi BA 4E AO 00 78 8D 3F FF 
>»2929 75 48 69 OF AA 9h 68 C9 ::DB »2AB9 Bit 64 48 CH Bi 64 AA CB 
»2831 8D FO 1E 0A DO 08 BA 8A >2AC1 Bi 64 OD 3E FF 58 AB 68 
>2839 90 FO 69 07 DO EE 4C 8C ::40 >2AC9 20 BD FF 20 50 A8 AC 55 


un. 
W 
[=] 
dran 
” » 
a [8,1 
[} I] 


n 
182] 
Sana 
L.] 
ar 


»2841 8D 68 85 49 68 85 4A 68 ::ES »2ADi 48 20 24 5A 98 99 3E 02 22D61 AD 86 A2 B6 DO 04 AS CB ::60 
>2849 91 49 Ca Co 05 DO FS AO +:AD >2AD9 C8 CO AF DO FB A2 0B BE ::94 >2D69 A2 5B 8D 00 03 BE 01 03 ::17 
>2B51 00 68:85 3A 68 85 39 al +:D5 »2AEi 77 02 A2 6F BE 78 02 A5 ::F4 >2D71 60 CB 78 8D 3F FF Bi 39 ::FE 
»2685% 75 46 8C 59 02 AS 0E 10 ::58 >2AE9 OB 29 7F 95 82 46 08 90 :: >2079 8D F3 04 CB Bi 39 55 3E ::DB 
»2861 09 AS 64 05 65 DO C7 4C ::C6 »2AF1 34 AS 61 A6 62 86 22 AM ::70 »2D81 FF 59 BD F2 04 20 67 SD ::59 
»2869 71 48 A5 61 DO CO A4C 71 3:31 »>2ArF9 63 84 23 20 &F CC BD 5D ::2D >2D89 A9 03 AC 62 AB AC BS BA ::BO 
»2871 48 8C 59 02 AS OE 10 OB ::61 >2B01 02 BD 6E 02 A939 5E BD 70 ::76 »2091 AD FS 04 85 39 AD F6 04 ::7A 
>2879 A5 64 05 65 FO 09 A9 01 ;;3E >2B09 02 A9 02 8D 71 02 AO 00 ::63 >2D99 85 3A AE FA 04 ER FO ED ::15 


:E? | >2DA1 CA BE F3 04 A2 FF BE FA ::43 
:B3 | >2DA9 04 AC 67 SD 20 9B SD CA ::28 
35 | >2DBl AC 14 58 20 91 5D CR 78 ::15 
:FA | >2DB9 80 3F FF Bi 39 A4C 62 40 ::85 
09 | >2DCı 20 91 5D AC 75 48 A9 F7 ::C7 
:95 | >20C9 A2 AE DO OA E6 39 DO 02 ::20 
; >2DD1 E6 3A A9 53 A2 90 85 35 ::5C 
:76 | >2D09 86 56 AS 39 85 3B A5 3A ::59 
:13 | >2DEi 85 3C 20 79 04 20 54 00 ::6F 


:Fi >2B11 78 8D IF FF Bi 22 99 SE 
:EB >»2813 02 C8 CC 5D 02 DO F5 8D 
»2B21 3E FF 59 46 0C 46 0B 90 
:81 >2529 24 20 BA 4E AU 02 79 OD 
72 >2B31 3F FF Bi 64 8D 75 02 08 
::02 >2B39 Bi 64 BED 74 02 886 BI 64 
>28B1 FF 58 65 2E 85 6D A9 05 »2B41 8D 3E FF 58 BD 72 02 FO 
>28B59 65 39 85 6A A5 3A 69 00 ::63 >2B49 68 C9 11 BG 64 46 DB 46 
>»26C1 85 6B B9 6A 00 91 64 88 ::79 >2B51 0B 90 OE 20 4E 5A EO 20 
»28C9 10 F8 AO 05 DO BA AD 02 ;:Ci >2B59 BO 57 EO 03 90 53 SE 77 :: ER >2DE9 4C AD 48 20 58 5A CA 86 ::DE 
>»2801 78 8D 3F FF Bl 39 18 65 ::DF »2B61 02 A6 OB 90 UD 20 4E 5A ::6E >2DF1 6E 20 58 5A 6B 68 65 SF ::CF 
2»28D9 23D 85 47 88 Bı 39 65 ZE ::2B >2B69 EO 02 BO 45 BE 6F 02 BE ::7A >2DF9 68 85 70 AY 19 B5 16 AO ::C1 
»28E1 85 48 AS 39 69 03 48 A5 2:30 >»2B71 73 02 46 OR 90 0A 20 4E ::6D »2E01 00 78 8b 3F FF Bi 6F 85 ::14 
>28E9 3A 69 00 48 Bi 47 DO 07 :;44 »2879 SA EU 02 BO 34 BE 73 02 ::11i »2E09 69 C8 B1 6F 38 ES 6E 85 ::9F 
>28F1 8D 3E FF 50 AC BD 9A 85 ::A7 >2B81 46 OB 46 OB 90 10 20 BA ::E& >2E11 6A CO Bi 6F ES Bü B5 68 ::90 
»28F9 3A BB Bi 47 85 39 AD 02 ::F9 >2B89 4E AG 64 A5 65 BE 79 02 ::BA >2E19 E4 69 90 D2 A6 69 BA FO ::AF 
>2901 Bi 47 85 49 C8 B1 47 85 ::43 2891 86 7A 02 CE 7B 02 AE 5A »2E21 15 18 65 GE BO 17 C5 61 ::EO 
>2909 4A CB B1 49 48 88 10 FA ;:1B >2B99 92 BD 27 Al 85 55 BD 90 ::FB >»2E29 90 02 DO 11 A4 6E Bi 6A ::BE 
>2911 aD 3E FF 58 A5 4A 48 A5 ;;B5 »2BAl 41 95 56 AS 02 10 02 EO ::B3 »2E31 91 62 C8 CA DO FB ED 3E ::DF 
>2919 49 48 A5 0E AC DE AD CB ;:1D >2BA9 62 DO 09 20 54 00 dC S5 ::Di >2E39 FF 58 ac 55 46 BD 3E FF ;:AE 
>2921 78 8D 3F FF Bi 39 84 0C ::5C >2BH1 48 4C 1C 99 AC 46 CC 20 ::28 >»2E41 58 AC IC 99 A5 37 A4 38 ::D6 
»2929 85 08 Ca BI 39 85 45 CB ::67 >»2BB9 45 45 AQ BB 48 A9 DE 48 ::0A >2E49 B4 AF 85 4E CA 34 DO 04 :;IC 
>»29831 Bi 39 &D 3E FF SB 85 46 ::FA >2BC1 AY 01 8D 78 02 AS 00 AC >»2E51 C5 33 FO SE 90 5C ES 02 ::59 
»2938 AS 31 85 5P ES 2F 85 69 ;:F2 >2BC9 5E C4 BA 48 20 61 5D 66 ::53 22E59 85 4E BO 02 C6 AF A0 01 ::EO 
>»29441 A5 32 85 60 ES 30 AA 05 ::E9 »2AD1 30 06 AC F3 04 C8 DO 04 ::9C >2ES1 78 BD 3F FF Bi AE C9 FF .:9A 
>»2949 69 FO 29 AO 05 1 78 8D ::0F >2BD9 AA AC 83 56 BD EF 04 AB ;:CE >2E69 FO 17 85 23 68 Bi 4E 85 ::EB 
2951 3F FF Bl 39 65 2F 85 6B ;:BC >2BE1 F7 04 9A AS 39 8D FO 04 ::98 >2E71 22 A5 4E 38 Fi 22 ED 3E ::21 
»2959 88 Bi 39 65 30 85 6C AD ::AD >2BE9 AE F3 04 AS 3A 8D Fi 04 ::6P >2E79 FF 58 A4 4F BO CC 68 90 ::EE 
>»2961 01 Bl 6B 88 11 6B 8D 3E ::FO >2BFı AD F2 04 BE F4 04 AC 5B ::59 »2EB1 C7 AS 4E 69 01 65 35 AS ::0C 
2969 FF 58 DO 66 A5 69 91 68 ::47 >2BF9 02 8C F5 04 AC 5C 02 BC +:1F >2EB9 AF 69 00 95 36 88 A5 ARE ::1D 
>2971 C& 8A 91 6B A5 OB 0A 69 ::DE >2C01 F6 04 AO FF 8C F3 04 4C ;: Fi >»2E91 38 Fi 4E BD 3E FF 58 A4 ;:: AP 
>2979 05 65 5F a4 80 90 01 Ch ::A5 >2C09 22 58 BA 8E F7 04 A5 39 >»2E99 AF BO 03 88 84 AF 65 AE ::20 
>»2981 85 58 84 59 20 23 89 AO ::00 >»2C1ı BD 5B 02 A6 3A BE 5C 02 ;:28 >2EAl CA 34 DO 04 C5 33 FÜ 02 ::26 
32989 00 8C 59 02 84 72 A2 05 ::B3 >2C19 19 69 02 AC 67 48 20 DA ::96 >2EA9 BO 20 AS 35 A4 36 85 33 ::3D 
2991 35 45 91 5F 10 01 CA CH ::94 >2C21 4F 20 2C 5C A9 O1 85 OE ::96 >»2EB1 84 34 38 E$ 02 BO 02 38 ;:BF 
2999 A5 46 91 5F 10 02 CA CA ;:54 >2C29 AC 6F 48 20 Cı B4 20 D4 :: >2EH9 39 ES 61 BO 01 88 Ca 32 ::ED 
»29A1 86 71 A5 OB AO 04 91 5F ::74 >2C31 4F EO 02 BO 10 BE E6 02 ::30 »2EC1 DO 02 C5 31 90 D1 60 AC ::AC 
>29A9 DO 03 20 BA 4E 20 9A 4F ;:E4 >2C39 AC 55 48 AS OE 10 09 A6 ::DC >2EC9 81 86 E9 02 85 4E Bü 02 :;94 


32881 AC 65 48 AS 61 DO FP7 Ca 
>2889 78 68D 3F FF Bit 39 AC 62 
»2891 48 Ca 78 8b 3F FF 
>»2899 18 55 2D 85 54 CB Hi 39 
>»28h1l 65 2E 85 65 Ca Bi 39 65 
>28h9 2D 85 $C CB Bi 939 3D 3E 


&n 
”» 
ww 
xo 
“un nn.“ 
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LE PET rue Tr ur Pe? 
> 


LUTZ TEEN ET Ze Ze TEE PET 
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»29B1 C8 EB DO 03 15 69 01 91 ::65 >2C41 65 AS 64 FO 06 AC IC 99 :; >2ED1 C6 AF AG D1 78 BD 3F FF ::9E 


Pr FE FE TE Pr FE FE EETGE TEE TEE ER Eee rn 
a. 
» 
@ 


>29B9 5F CB 6A 91 5F 20 2F 9R 3:67 >2C49 20 DF AF BA FO F7 68 85 ::E2 >»2ED9 Bi AE C9 FF FO AF 85 23 ::30 
>»29C1 A4 22 86 71 85 72 C6 OB ::2F >2C51 ODE 68 85 64 68 85 65 CA :;B3 >2EE1 AS 35 E9 01 85 35 BO 02 ::94 
>29C9 DO EO 20 83 93 A9 06 AC ;:6B >2059 86 50 AD 02 76 8b AF FF :: >2EE9 C6 365 AS 23 91 35 88 Bl ::17 


»29D1 62 458 AC 21 99 CB 84 OA ::ED >»2C61 Bl 64 85 63 98 Bi 64 95 ::D3 >»2EF1 AE 85 22 91 35 A5 4E 38 ::EA 
»29D09 20 24 5A FO 22 A5 61 A6 ::97 >2C69 62 BB B1 64 ID AB FF SB ;::98 >2EF9 Fi 22 85 4E BO 02 C6 AF ;:81 
>29E1 62 A4 63 20 BD FF C6 OB ::CA »2C71 85 61 BC 5A 02 66 68 86 ::6A >2F01 AS 35 38 Fi 22 85 35 C8 ::26 
>29E9 FO 15 20 58 5A 86 AE EO ::94 >2C79 6F 68 85 70 4C EB 42 AS ::27 >2F09 91 22 CO AS 36 E9 DO 85 ;: 
>29F1 03 90 03 BE 77 02 C6 OB ::9F >2C81 61 FÜ 39 A9 00 85 65 18 ::DE >2F1l 36 91 22 AO 00 Bl 22 AB ;:D2 
>29F9 FO 05 20 56 5A 86 AD 20 ::?D >»2C89 AS 61 65 50 Bü 2E C5 69 ::BA >2F19 86 FO 07 Bi AE 91 35 88 :: 

>»2A0OL 06 5A AC 55 48 AD 5A 02 ::19 »2C91 90 02 DO 28 A4 65 CA 61 ::57 »2F21 DO F9 Bi 4E 91 35 BD SE : 
>2A09 C9 SE 90 05 DO 12 AC EI ::14 >2C99 FO 1D 98 18 65 50 AB 78 ::48 >2F29 FF 38 AS 4E AA AF AC Al ::58 
>2A11 A7 A5 AD DO 02 E6 AD A9 ::Ea >2Ck1 8D 3F FF Bi 6A A4 65 DI ::CE >2F31 SE 5A 64 25 65 25 65 36 :: 
>2A19 BB 48 A9 DE 48 20 45 45 ::04 >2CA9 62 BD 3E FF 58 FO 04 E6 :; >2F39 SF 3F 5F 40 SF 16 FF 15 ::62 
>2A21 AC FA A7 BE 5A 02 A0 00 ::E6 >2CB1 50 DO DO E6 65 DO DD E6 ::E9 >2F41 AA 90 7F 06 00 00 CO 74 :: 

>2A29 A2 01 84 AB 84 AD 84 17 ::25 >2CB9 50 AS 50 2C A9 00 A0 00 ::CC >2F49 64 35 5C E7 30 2C 31 3A ::15 
>2A3l 584 90 86 OC 86 AE A9 19 ::DA >2CC1 AC EC 50 20 D4 AF CA EO ::05 >2F51 5C E7 34 2C 21 3A SC E7 :: 

>»2A39 85 16 E6 39 DO 02 E6 3A ::EO >2CC9 08 BO 2F 86 76 A9 19 85 ;::1D >2F59 31 2C 32 3A 19 61 36 SC ::AC 
>2A4l 78 BD 3F FF Bi 39 8D 3E ::4C >2CD1 16 68 68 85 64 68 85 65 ::5E >2F61 DE 30 2C 31 3A SC BO 31 :: 

>2A49 FF 58 65 OB 60 46 0C 90 ::35 >2CDa AO 02 78 6D 3F FF Bl 64 ::71 >2F69 2C 31 2C 32 32 2C 22 22 ::72 


un 0m Hd nr dm on 


2 
& 
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>2F71 3A 5C DE 33 3A 5C E7 30 ::13 >»3161 49 4D 45 AE 53 49 4F AB ::6A >»3351 22 33 07 9C 07 A6 22 33 ::1E 
>2F79 2C 31 35 2C 31 9A SC E7 ::92 >31693 3E E? 22 10 1D IB ID 1D ::72 >3359 07 E7 0C 2C 31 2C 31 38 ::49 
>2Fo1 34 2C 31 35 2C 31 3A SC ::ıB >3171 2D 2D 2D 2D 2D 2D 2D 2D ::F6 3361 30 30 2C 34 30 30 30 07 ::10 
»2F89 E7 33 2C 31 30 2C 37 3A ::96 >3179 2D 2D 2D 2D 2D 2D 2D 2D :: FE 33369 3E ED 11 11 11 11 SB 36 ::3E 
>»2F91 5C E7 31 2C 32 3A A? 1iB :: >3181 2D 2D 2D 2D 2D 20 2D 2D ::06 >3371 ED 11 52 55 4E 13 3E Ba ::47 
>2F99 00 C1 A? ic 00 AO 01 11 :: >»3189 2D 2D 2D 2D 2D 3E BA 41 ::EF 3379 A6 EF 17 BD A? 05 27 17 ::93 
>aFAl A6 40 81 17 13 A7 IC 00 ::E2 >3191 E7 06 11 11 11 4D 45 AB ::26 >3381 BD A? 05 28 17 BD A7 05 ;:08 
>2FA9 Ci A7 20 00 Aü Di 11 A6 ::14 >3199 55 45 3E BA 41 2D 2D ::Cı >3389 29 17 BD A7 05 2A 17 4F ::14 
YarBi 92 61 17 13 SC DE 34 3 ::4i »31At 2D 2D 2D 3E E7 14 it ID ::32 >3391 EB 93 11 11 3E 50 E7 16 ::63 
>2FB3 3F 50 E7 OB 20 59 2D 4C ::F3 »31A9 1D 31 2E 20 47 52 41 46 ;:A9 >3399 AE Ai AD 45 20 44 45 53 ::4A 


>3019 30 30 56 BO 2E A6 EF 0C ::8E >3209 ID 1D 34 2E 20 53 50 45 :: >»33F9 17 BD A7 05 2R 17 AF ER ::98 
>»3021 80 17? 5C E7 31 2C 31 30 ::83 >3211 49 43 45 45 52 4E 20 Ai :;:54 >»3401 93 13 3E 64 00 BA 41 E7 ::983 
>3029 2C 30 3A 5C E? 32 20 33 ::7E >3219 55 46 20 44 49 53 4B 3E ::Fö >3409 OF 11 54 41 53 54 45 20 ::EB 
>»3031 2C 34 3A 5C E? 33 2C 31 ::84 >»3221 E7 OE 1B 1D 35 2E 20 44 ::3E >3411 44 52 55 45 43 4B 45 4E ::Rq 


>2FCi 49 4E 4B 53 20 3D 20 30 ::DDd >31B} 49 4B 20 41 AE 53 45 48 ::C0 >33Al 20 47 52 41 46 49 AB 42 ::AD 
»2FC9 AO 02 53 50 E? OC 20 58 ::40 >31B9 45 4E 3E E7 22 ID ıD 32 ::D4 >33A9 493 AC 44 45 53 20 3C 9C ;:80 
>»2FDI 2D 52 45 43 48 54 53 20 ::51 >31C1 2E 20 53 50 45 49 43 48 ı:BD >»33B1 53 EE 99 11 11 11 4D CF ::SE 
»2F09 3D 20 3C AO 03 53 50 E7 ::22 >31C9 45 52 4E 20 41 55 46 20 ::7A >3389 3E EE 11 11 11 11 11 53 ::47 
>»2FEI 0A 20 39 2D AF 42 45 4E ::83 >31n1 4B 41 53 53 ZE 20 AD 49 ::1D >»33C1 A6 22 33 07 9C 07 A6 22 ::69 
>2FE9 20 3D 20 3€ AO 04 83 50 :: >91D9 54 20 54 55 52 42 4F IR ::2D >33C9 33 067 E7 0C 2C 38 2C 31 ::0A 
>2FFi E?7 OB 20 59 2D 55 4E 54 ::82 >31E1 E7 23 ID 1D 33 2E 20 53 ::95 »33D1 38 30 30 2C 34 30 30 30 ::DO 
>2FF9 45 4E 20 3D 20 3C AO DS ::ED >31E9 50 45 49 43 48 45 52 AE ::BF >»3309 07 3E EB 11 11 5B 3E ED ;:13 
>3001 53 50 E? 09 20 54 49 45 :: BC >S1F1 20 41 55 46 20 4B 44 53 ::9C »a33E1 11 52 55 AE 13 3E Ba A6 ::EF 
>3009 46 45 20 3D 20 3C AO 01 ::CD »31F9 59 ZE 20 AF 48 4E 45 20 ::94 >33E9 EF 17 ED A? 05 27 17 BD ::98 
>3011 53 Bi 79 EE 30 30 30 30 ;:F9 >»3201 54 55 52 42 4F 3E E7 17 Be »33F1 A? 05 28 17 BD A7 05 29 ::AF 


>3038 30 2C 37 3A SC DE 39 2C ::49 3223 49 52 45 43 54 AP 52 59 ::87 >»3419 3E 99 4D 19 61 3C E7 12 ::36 
>3041 31 3A A6 69 C6 Ab 69 C7 ::65 »3231 3E E? OD ıb 1D 36 2E 20 ;:21 >3421 99 13 11 11 1D 1D IB 1D ::77 
>»3049 BL C8 BO C9 FA Ci A6 3C ::A2 >3239 AE 45 55 53 54 41 52 54 1:96 >3429 1D 1D 45 4E 44 45 20 21 ::95 
>23051 CA 83 82 08 86 CA CB 85 ::86 >3241 3E E7 09 iD 1b 37 2E 20 ;:2B >»3431 21 21 3E 4F E9 93 3E SC ::4aF 
>3059 84 D8 87 0A CC BO CD 87 ::C9 23249 45 AE 44 45 3E 99 AD 99 :;EB »3439 DE 30 3A SC DE 30 3A SC ::B5 
>3061 AO OD 11 84 6D 86 09 07 ::0E >3251 E9 31 02 52 62 84 99 E9 ::95 »3441 E7 30 2C 31 3A 50 E? 34 ::3F 
>3069 CE BO CF 86 AO OF 11 82 ::4D »3259 32 02 52 62 98 99 EI 33 ::C4 >»3449 2C 31 3A SC E7 31 2C 32 ::96 
>»3071 BF 8B 09 07 DO BE Di ED ::198 23261 02 52 63 20 99 E9 34 02 ;::Di >3451 9A 80 2E FO DD 80 17 4F ::623 
>3079 D2 90 90 09 D3 91 91 09 ::339 | 3269 52 63 91 99 E9 35 02 52 ::39 >3459 4F A2 41 00 00 00 00 00 ::23 


>3081 D4 B2 90 09 91 09 89 08 ;:C7 23271 64 00 99 E9 36 02 52 SF ;:C6 »3461 54 00 00 08 00 00 00 58 ::9 
>3089 Di 93 94 08 BB DB DO 92 ::A4 3279 60 39 EI 37 02 52 64 IF ::7E >3469 4C 00 00 00 00 00 5B 52 ::El 
>»3081 Bi 07 D2 92 81 04 93 94 ::80 23201 19 62 4E SC DE 33 3A Bi ;:90 >3471 00 00 06 00 00 59 4F 00 ::E4 
>»3098 07 BA 04 0C 52 60 ?A BF ::C8 >3289 Ci A7 07 DO AO 81 11 13 ;:54 >3479 00 00 00 00 59 55 00 00 ::66 
>30R1 A6 35 07 BD B2 OA 08 D5 ::C0 >92291 SC DE 30 3A 19 61 3C E39 ;:02 >3481 00 00 00 58 4D 00 00 00 ::96 
>30A9 95 B1 07 D6 8D A6 50 07 ::AA 23299 93 3E 50 E7 18 11 11 4E :: >3489 00 00 59 AD 00 00 00 00 ::FC 
>3061 D7 97 B3 92 Bi 0B 09 08 ::6B >32Al 41 AD 45 20 44 45 53 20 ::34 »3491 D0 58 43 00 00 00 00 00 :;3E 
»30B9 D8 SC EO 33 2C 30 2C 20 ::95 >32h9 47 52 41 46 49 4B 42 49 ::E6 »3499 59 43 00 00 00 00 00 53 ::44 
>30C1 2C 54 49 24 3A 5C ES 31 ::43 | >32B1 AC 44 45 53 20 SC 9C 53 ::B6 | »34A1 00 00 00 00 00 00 44 58 ::71 


>32B9 E7 0C 93 11 11 31 59 59 ::AF >34A9 00 00 00 00 00 44 59 00 ;:E4 
>32C1 53 33 32 30 36 34 3E E7 :;32 >34Bl1 00 00 00 00 4E 00 00 00 ::6B 
>32C9 08 13 11 11 11 11 11 AD ::36 >34B9 00 00 00 59 31 00 00 00 : 
>32D1 CF 3E EE 11 11 11 11 11 ::16 >34C1 00 00 AD 00 00 00 00 8 : 

>32D9 53 A6 22 33 07 9C 07 A6 ::08 >34C9 00 58 00 00 00 00 00 00 ;;AD 


>30C9 2C 55 2C 56 A4 55 20 56 
>30D1 31 3A SC ES 32 20 55 31 
>30D9 20 56 A4 55 31 2C 56 31 
>30E1 3A 5C E5 33 2C 55 20 56 
>30E9 31 A4 55 31 2C $6 31 9A 
>30F1 99 46 99 EI 50 02 ıF 10 
>30F9 AC A7 03 84 07 DA 80 2E 
>3101 FO OD 80 17 Bi DB 9B Bl 
>3109 02 AC 9A 01 0C IF 0B 80 
>3111 2E A6 EF 0C 90 17 BO DB 
>3119 13 13 5C EO 33 2C 30 2C 
3121 # 2C 22 20 20 20 20 20 
>3129 20 22 3A SC DE 30 34 5C 
>»3131 E7 31 2C 32 3A 80 2E FO 
>3139 OD 80 17 5C E? 31 2C 32 
»3141 3A E9 93 3E E7 22 1D iD: 
>»3149 ıD 1D 1D 41 50 46 45 4C ; 
>3151 42 45 52 47 43 20 49 AE :: 
»3159 20 44 45 32 20 33 ZE 44 :: 


” 
“r 


>32E1 22 33 07 E7 0C 2C 31 2C ,:47 >34D1 59 00 00 00 00 00 00 4B :: 
>32E3 31 38 30 30 2C 34 30 30 ::FO >3459 00 00 00 00 00 00 58 32 
>32F1 30 07 SE ED 11 11 11 11 :;89 >34E1 00 00 00 00 00 59 32 00 ::89 
»32F9 58 3E ED 11 52 55 4E 13 ::5C >34E9 00 00 00 00 35 00 00 00 ::C6 
>3301 3E BS A6 EF 17 BD A7 05 ::24 >34F1 00 00 00 55 31 00 06 00 ::6E 
>3309 27 17 BD A? 05 28 17 BD ::F6 >34F9 00 00 56 00 00 DO 00 00 :;2F 
»3331 A? 05 29 17 BD A7 05 2A ::DA >3501 0D 56 31 00 00 00 00 00 1:75 
>3319 17 BD A? 05 2A 17 4F E9 ::B3 >3509 41 80 00 00 00 00 00 54 ::1F 
»3321 93 3E 50 E7 18 11 11 4E ::B4 >3511 41 00 00 00 00 00 54 31 ::5B 
»3329 41 AD 45 20 44 45 53 20 ;;BD 3519 00 00 00 00 00 4E C1 00 ::69 
3331 47 52 41 46 49 4B 42 49 ::6F 23521 00 00 00 DO 00 FF 00 29 ::98 
>3339 40 44 45 53 20 30 9C 53 :;3F 
>3341 EE 93 11 11 11 4D CF 3E ::BB 
>3349 ER 11 11 11 11 11 59 A6 ::393 
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Kurs 


Gitarren- 





Dieses Anwenderprogramm für 
Gitarrenspieler und solche, die 
es werden wollen, gliedert sich 
in drei Teile. Im Menü wählt 
man mit den Cursor-Tasten 
{hoch/runter) zwischen den 
Programmteilen, die dann mit 
"RETURN” zu erreichen sind. 
Der einzige Menü-Punkt, zu 
dessen Erreichen eine andere 
Cursortaste notwendig ist, heißt 
ENDE. 


1, Wahl der Akkorde. 

Oft findet der Spieler bei Tex- 
ten Akkorde vor, die nicht ein- 
fach zu spielen sind 
{Barräsgriffe, z.B. F, B..../siahe 
auch 2.). Kommen davon dann 
zuviele vor, wird das Lied fast 
unspielbar. Nachdem die 
Grundakkorde (z.B. wird G ge- 
wählt für C-Moll, GC sus 4, ...) 
eingegeben sind, rechnet der 
Computer die einfachste 
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Spielweise aus und, zeigt auf 
Tastendruck auch andere Va- 
rianten mit deren Rang und 
Schwierigkeitsgrad an (1 ein- 
tachste, 12 schwarste Tonart). 
Damit wird das Transponieren 
(Umsetzen in andere Tonarten) 
wesentlich vereinfacht. 

Auf dem Bildschirm erscheinen 
zunächst alle Grundakkorde 
von GC bis H. Angewählt wird 
ein Akkord mit "Cursor-runter", 
dies kann man rückgängig ma- 
chen mit ”Cursor-hoch”. Zu 
anderen Akkorden gelangt 
man mit "links/rechts”. Auch 
die Belegung der Funktionstas- 
ten erleichtert hiar die Arbeit. 
Die jeweiligen Funktionen kön- 
nen Sie übrigens ertahren, 
wenn $ie eine der Funktionsta- 
sten zusammen mit SHIFT 
drücken. Alla Eingaben, die Sie 
hier machen, werden mit RE- 
TURN abgeschlossen. Es 
müssen mindestens zwei und 
dürfen höchstens zehn Ak- 
korde angewählt werden. Da- 
nach rechnet der Computer, 
und Sia können mit 
"rechtsflinks” die Ergebnisse 
vergleichen. Mit RETURN 
geht's zurück ins Hauptmenü. 
2. Barröegriffe 

Dieser Te des Programms 
stellt die üblichsten Barree- 
griffe vor, also diejenigen, die 
auf E-Dur und A-Dur beruhen, 
Zusätzlich haben $ie die Mög- 
lichkeit, Moll-Abwandtung oder 
Septiminteryall zu wählen. Das 
Anwählen der einzelnen 
Punkte geschieht hier mit 
Prechts/links” und RETURN. 
Danrı wird als erste Version die 
auf E-Dur, dann die auf A-Dur 
basierende Möglichkeit ge- 
zeigt. Zusätzlich steht unter je- 
der Saite der Ton, den sie er- 
zeugt. Außerdem sind noch die 
für den Akkord unbedingt not- 
wendigen Noten zu sehen, und 
zwar sind dies der Grundton, 
große Terz (Moll: kleine Terz), 
reine Quint und beim Septime- 
akkord zusätzlich das Septi- 
meintervall. Dia Angabe des 
Bundes (oder unter gewissen 
Umständen auch beim ersten 
oder zweiten Bund das Ende 
des Gitarrenhalses) zeigt, wo 
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auf dem Gitarrenhals gegriffen 
werden muß. Auch hier gelangt 
man mit RETURN zum 
Hauptmenü. 

3. Lexikon der Akkorde 

Der Computer kann 2160 Ak- 
korde zeigen. Da er individuell 


jeden Akkord berechnet und. 


richt nur Beispiele der Art des 
Akkords gibt, wie dies die übli- 
chen Grifftabellen tun, ist die- 
ses Programm solchen Tabel- 
len überlegen. Die Auswahl 
des Grundakkords geschieht 










ED yanrsion 





im wesentlichen wie in Punkt 2, 
nur haben Sie über F1 noch die 
Möglichkeit, die Stimmlage der 
Saiten zu ändern. Dies ge- 
schieht über alle Cursor- oder 
die Funktions-Tasten: 


Fi: alte Stimmlage setzen (EA 
DGHE) 

F2: alle Saiten ein Halbton tie- 
ter 

F3: alle Saiten ein Halbton hö- 
her 

HELP: Rückkehr 
Hauptmenü 


zum 


Mit RETURN wird dann der 
Programmpunkt fortgeführt. 
Dann haben Sie über die 
Cursor-Tasten "rechts/links” 


sowie RETURN die Möglichkeit 


zur Veränderung des Grun- 
dakkords. Als arstas steht zur 
Entscheidung, ob Dur-, Moll- 
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Akkord oder mit einer Quart als 
Vorhalt {statt der 
großen/kleinen Terz steht eine 
verminderte Quart). Der dritte 
Ton des Akkords kann eins 
verminderte, reine (z.B. bei 
Dur- und Moll-Akkorden) oder 
erhöhte Quint sein. 


Das Programm gibt nun die 
Bezeichnung des Akkords aus 
{z.B. © mit Quart als Vorhaft 
Csus 4. Vermindertes C heißt 
C-, erhöhtes C+), zeigt dann 


C-Dur 


Bund 





sich über die Angaben unter 
den Saiten und die neuen Zei- 
chen im Griffbild und deren No- 
ten Ihren Akkord so zusam- 
menstellen, wie Sie ihn am be- 
sten greifen können - oder wie 
er am besten klingt, denn der 
Klang verändert sich, wenn 
statt einss hohen C'’s ein tiefes 
gespielt wird. 

Die Rückkehr zum Hauptmenü 
erfolgt mit "links/rechts” und 
einem abschließendem 
RETURN. 


GEGEEG 


den Akkord und gibt wie bei 
Punkt 2 wieder die Noten an. 
Danach können Sie nach Art 
des Hauptmenüs bis zu zwei 
Zusatzintervalle wählen. Links 
des Intervalls erscheint dann 
ein Zeichen, das man auch im 
Griffbld findet. Rechts vom 
Intervall steht der dazugehö- 
rende Ton. Mit RETURN kön- 
nen dann beliebig viele Inter- 
valle angewählt und zurückge- 
nommen werden, so daß im- 
mer bis zu zwei angezeigt wer- 
den. Manchmal steht über ei- 
ner Saite eine Null, dies bedeu- 
tet, daß der gesuchte Ton or- 
klingt, wenn diese Saite nicht 
gegriffen wird. Steht über einer 
Saite ein ”X”, so ist diese ab- 
zudämpfen. Da nun angezeigt 
wird, walche Noten zur Bildung 
des gewünschten Akkords 
notwendig sind, können Sie 


Buslesen Akkorg notwendige Yoene: 


4. Ende 

Über die Tasten "rechts/links” 
sowie RETURN kann das Pro- 
gramm beendet werden. 


Die Eingabe: 

Das Programm Gitarre wurde 
in Basic geschrieben und be- 
steht aus einem einzigen Teil. 
Dieser wird am besten mit dem 
Checksummer eingetippt und 
unter dem Namen "GITARRE" 
abgespeichert. 


Programmnarme: GITARRE 
Computeriyp: C16/116 mit 
64K-RANV/Plus 4 

Lauffählg auf: Floppy und 


Datasette 
Besonderhelten: 
behrliches Nachschlage- 
werk für Gitarren-Spieler 


Unent- 
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C-16 LISTING + CHECKSUMMEN (6C V1.0) 


ı ; REM PETE TEE LS 5 0 a a L 2 200 2 2 2 2030 
2 : REM * 

3. REM * GITARRE PLUI/4 “ 
4: REM *# « 
5 : REM * WRITEN BY “ 
6 : REM * HARALD WINKLER “ 
7 ; REM * LUISENSTR. 29 BAD NAUHEIM * 
8 : REM * * 
9 B REM ee 
10 SCNCLR 


20 PRINT CHR$(14)CHRS(B) 
30 DIM N$(12),A(12),F(12),FA(12),N(12} 
40 DIM Mi12),L(12),.0(12) 


50 X$=" {HOME 
60 DATA 
Kl} 


80 DATA 0,9,0,13,0,2.4.0,8.0,3,5 
90 DATA 5,12,8,3,10,5 


100 


DOWN3}" 


"4.507", LED SO BER" 


70 DATA "(E18 SO" LEE ISO", SA# 


110 FOR I=1 TO 12 
: READ N${I) 
130 NEXT T 


120 
140 


F 
[3 


150 FOR I=1 TO 12 
160 : READ F{T) 
170 NEXT I 


+80 


190 FOR I=1 TO 6 
200 : READ E(T) 
210 NEXT I 


220 


® 
2 


230 FOR I-1 TO 8 

240 : KEY I,CHR$(132+1} 

250 NEXT I 

260 GIS="LCI6Y" 

270 G2$=" 5-61" 

280 GIH="(CQ Sra Ci” 

290 GA$="{RVSON SPACEE RVSOFFY” 


BZ 


300 G5$="{RVSON SPACE RUSOFFY” 


310 


= 
” 


320 COM=3122 


330 AK=-1 


340 


‘ 
; 


350 ;REM MENUE 


360 


370 HM=1 


390 SCNCLR 
390 R$ (HM) =" RVSON)" 


400 PRINT "(HOME 


5/4" 





410 PRINT "tCTi4r" 


420 PRINT "(DOWN ’RSCL)" (SWIAHLI 





PACE SA)YKKORDE” 


430 PRINT 


{SPACE SAYKKORDE" 

PRINT "{ DOWNZ} "RS (4) " LSEYNDE" 
RSCHM) ="" 

GETKEY Y$ 

IF Ys< >" {UP)"THEN 510 


450 
460 
470 
480 


450 : 


500 : 


510 
520 
530 
540 
550 


560: 


570 
580 


IF Y$< >" DOWN} "THEN 540 
: HM=HM+1: IF HM>3 THEN HMei 
ı GOTO 390 
IF Y$< >" {LEFTI"AND YS< >" LRIGHTI"THEN 570 
; HMr4 
GSCTO 390 


=HM-1; IF HMS1 THEN HM«3 


SOTG 399 


IF Y$<>CHR$ (13) THEN 470 
ON HM 6010 620,2020,3240,5530 


DOWN2 SGYITARRE{SPACE SPYLU 


SPACHYDERIZ 


"{ DOWN} "R$ (2) SB} ARREEGRIFFE" 
440 PRINT "1 DOWN} "RS 13) "LSLIEXIKON(SPACHIDER 


<123> 
<128> 
<235> 
<130> 
<24? 

<213> 
<198> 
<134> 
<131> 
£242> 
<180> 
<191> 
<150> 
<102> 


<127> 


<4a4> 
<46> 
<1217 
x158> 
<19> 
<215> 
<150> 
<198> 
<59> 
<189> 
<1907 
<238> 
<357 
<226> 
<230> 
222> 
<67> 
2227 
<14> 
<106> 
2557 
<5> 
<130> 
<202> 
<113> 
<22B> 
<252> 
<143> 
<25> 
%163> 
<Aa7> 
<101> 
<20> 


<225?2 
<105> 


<162> 
<161> 


<246> 
<226> 
<150> 
<5> 
<234> 
<115> 
<1747 
<169> 
<103> 
<205> 
<18> 
<165> 
«235? 
{2217 
<66> 


590 


600 :REM WAHL DER AKKORDE 


610 


620 SCNCLR 

630 Il 

640 PRINT X$; 

650 FOR J=1 TO 12 

660 : IF AlJ}=1 THEN PRINT "iRVSON": 

670 : PRINT TAB(3#H(J-1));NSLIY"(RVSORF SPACE 


2," 


680 NEXT J 


690 


. 
’ 


700 PRINT X$" ( DOWN) "CHRS{27)+"N"; 

710 IP I=7 OR 1=9 OR I=1l THEN X=-3.4# (1-1): 
ELSE X=3.5#(1-1) 

720 PRINT TAB(X):""; 

730 IF I=2 OR I=4 OR I=7 OR I=9 OR I=11 THEN 
PRINT "tCY2}": ELSE PRINT "(cX}" 

740 PRINT CHR$(27)+"Q" 

750 GETKEY Y$ 

760 IF YS<>"(LEFTI"THEN 790 


77D 
780 


4 
» 


* 
* 


I=I-1: IF 11 THEN Ie12 
GOTO 700 


790 IF Y$<>"(RIGHTY"THEN 820 


808 
819 


* 
* 


f=I+1: IF I>12 THEN I=1 
GOTO 700 


820 IF Ys<>"(DOWN)"THEN B60 


830 
840 
850 


> 
: 
- 
. 


- 
L 


PRINT X$; TAB (X) :" ERUSON)"+N$ CT) 
Ati)=l 
GoTOo 708 





860 IF Y$<>"{UP}'"THEN 900 


870 
880 
890 


F 
’ 
» 
[2 


* 
2 


PRINT X$: TAB{X) ;N${I) 
ALI)=D 
GOTO 700 


900 IF Y$<>CHR$ (133) AND 
‚X$< >CHR$ (134) THEN 950 


910 
920 


930 
940 
950 
960 
970 


980 
990 


” 
® 
x 


FOR J=1 TO 12 
IF Y$=CHR$ (133) THEN AlJ)=D: 
ELSE AtJ}=1 
NEXT J 
GOTO 640 


IF YS<>CHR$(135)THEN 1010 


4m 


ae Mr 


FOR J=1 TO 12 

IF AtJ)=O THEN AlJ}et: 
GOTO 990 

AtJ}=0 
NEXT J 


1090 : GOTO 640 
1010 IF Y$=CHR$(140)THEN 380 
1020 IF Y$<CHR$(136)OR 
Y$>CHRS (139) THEN 1090 
1030 : IF Y$=CHRS(136)THEN FÜ$="(SA)KKORDE(S 
PACEYLOESCHEN" 


1040 : 


IF Y$=CHR${137)THEN FUS="ALLE(SPACE 5 


AYKKORDE ( SPACE}ANWAEHLEN" 


1050 : 


IF Y$=CHR$ (138) THEN FU$="UMGEKEHRTE(S 


PACE SDYARSTELLUNG" 
1060 : IF Y$=CHR$ (139) THEN FU$="{ SRYVECKKEHR 
{ SPACE) ZUM{ SPACE SH) AUPTMENUE" 


1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


1450 : 


1160 
1170 
1180 
1190 


+ GOSUB 6590 
+ GOTO 750 
IF Y$<>CHRE(L3)THEN 700 


REM BESTER SCHWIERIGKEITSFAKTOR 


F=0 

FOR I-1 TO 12 

IF A{I)=1 THEN F=F+l 
NEXT I B 

IF F£2 OR F>10 THEN 380 


PRINT "(CLEAR DOWN2 SEYRMITTELNtSPACEID 


ER{ SPACE} BESTEN SPACE STYONART" 
1200 PRINT "tiCY273" 
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<138> 
<227> 
<158> 
<B85> 
<194> 
<35> 
<51> 
<50> 


<119> 
<192> 
<2387 
<70> 


<244> 
<22> 


<167> 
<57> 
<30> 
<195> 
<100> 
1767 
<31> 
<116> 
<206> 
<21> 
<2409> 
<243> 
<246? 
<133> 
<148> 
<20> 
<30> 


$91> 
x397 


<208> 
<1937 
<93> 
<93> 
<89> 


<69> 

<124> 
22537 
<153> 
<131? 


<164> 
<231> 
<94> 

<221> 


<114> 
572 

<241> 
<176> 
<138> 
<132> 
<158> 
<168> 
<29?2 

<2157 
<160> 
<120> 
<218> 


<224> 
<93> 


1210 PRINT "{DOWNZ2 SPACE14 S- SPACEI S-)" 
1220 PRINT "{SPACE14 $- SPACEYGEGEBEN{ SPACE 
$- SPACE}MOEGLICH" 

1230 PRINT "(5%14 9+ 9*9 S+ Sr10)" 

1240 PRINT "{SS}YCHWIERIGKEIT{SPAGE S- SPACES 
Ss" 

1250 PRINT "(5%14 $+ 5%9 S+ S*10Y" 

1260 PRINT "{SRIANG(SPACEIO S- SPACES 8-}" 
1270 PRINT "(2*14 Sr 9*9 5+ S®10)"“ 

1280 PRINT "({SA}KKORDE(LEFTZ)”: 

1290 FOR I=1 TO 12 

1300 : IF A(I)=O THEN 1320 

1310 : PRINT "{RIGHT? SPACE? S- SPACES S- LE 
FTZ}’N$(I} 

1320 NEXT I 

1330 PRINT "{SPACEI4 $- SHIFTSPACEI S-)" 
1340 : 

1350 FOR I=1 TO 12 

1360 : FA(I)J=O 

1370 : FOR J=1 TO 12 




















1380 : IF AtJ)=O THEN 1400 
1390 : FACT)=FALTI + FI) 
1400 : NEXT J 

1410 : 


1420 : AlO)=A{12) 

1430 : FOR J=12 TO 1 STEP -1 
1440 : AtJ)=A(J-1) 

1456 : NEXT J 

1450 NEXT I 

1470 : 

1480 FOR I=1 TO 12 

1490 : L{I)=I 

1500 NEXT I 

1510 : 

1520 F=0 

1530 FOR I=1 TO 11 

1540 : IF FA{I)<=FA(I+1YTHEN 1580 
1550 ; F=i 

1560 : H=FA(I): FACE)=FA(I+1): FACI+L)=H 
1570 ; H= L{I}: L{TDI= L(I+H1):; LiI+ri)=H 
1580 NEXT I 

1590 IF F=1 THEN 1520 

1600 Ei-L(1} 

1610 E2=L(2) 

1629 FOR I=1 TO 12 

1630 : N{IJ=I 

1640 NEXT I 

1650 : 

1660 FOR I-1 TO 12 

1670 : M{L{I})=FA{T) 

1680 : O{L{T))= N{I) 

1690 NEXT I 

1700 ; 

1710 FOR I=1 TO 12 

1720 : FA(I)=M(T) 


1730 N{IJ=OCI) 
1740 NEXT I 
1750 


1760 IF Ei=1 THEN I=E2: ELSE I=Ei 

1770 PRINT "tHOME DOWNS}"; 

1780 PRINT TAB(17);FA{1l); 

1790 PRINT TAB(28);FA(I)"(LEFT SPACE2}” 
1800 PRINT "DOWN "TAB(17):N(1); 

1810 PRINT TAB(28) ;N(I)"(LEFT SPACE DOWN," 
1820 FOR J=1 TO 12 

1830 : IF A(J}=0 THEN 1870 

1840 : X=1+J-1 

1850: : IF X>12 THEN X=X-12 

1860 : PRINT TAB(29) ;N$ (X) CHRS (27) +"Q" 
1870 NEXT J 

1880 : 

1890 GEIKEY Y& 

1900 IF Y$<>"{LEFT}"THEN 1940 

1910 ; I«I-1 

1920 : IF I<2 THEN I=12 

1930 : GOTO 1770 

1940 IF Y$<>"{RIGHTY"THEN 1980 
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<158> 


<150> 
<95> 


<>) 
<115> 
«79? 
<135> 
<164> 
<180> 
<79> 


<47> 
<65> 
<ad> 
<123> 
<240> 
<63> 
<245> 
<151> 
<28> 
<153> 
<193> 
<245> 
<92> 
<80> 
<203> 
<205> 
<253> 
<114) 
<61> 
245? 
<37> 
<47> 
$157> 
<70> 
<180> 
<134>3 
<29> 
<70> 
&73> 
<64> 
<82> 
{2557 
<206> 
<130> 
<178> 
<39> 
<137> 
<1307> 
<180> 
«2282 
<B9> 
<149>7 


<199>. 


<22307 
(227 
<43> 
1947 
<66> 
42087 
<55> 
<136> 
<202> 
<219> 
<158> 
<1767 
<10> 
<107> 
<153> 
<151> 
<160> 
<Dd> 
<158> 
<127> 
<120> 
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1950 : I=I+1 

1960 : IF 1>12 THEN I=2 

1970 : GOTO 1770 

1980 IF Y$<>CHR$ (13) THEN 1890: ELSE 
GOTO 380 

1990 x 

2000 :REM BARREEGRIFFE 

2010 : 

2020 PRINT "{CLEAR DOWNZ SBYARREEGRIFFE” 
2030 PRINT "t{CT12 DOWN2}" 

2040 : 

2050 XY=0 

2060 GOSUB 5930 

2070 : 

2080 K=2 

2090 IF K=1 THEN K1$="{RVSON}": K2$="": 


2190 


ELSE K2$="{RVSON}": Kige"" 
PRINT TAB(1):K1$"< UPYMIT(RVSOFF SPACE} / 





{SPACE} "K2$"OHNE{ RVSOFE SPACE SSYEFTIME" 


2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 


2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 


GETKEY Y$ 

IF Y$="{LEFT}"THEN K=1: GOTO 2090 
IF Y$="{ RIGHT) "THEN K=-2: GOTO 2090 
IF Y$<C>CHRE(L3)THEN 2110 


SCNELR 

Y$=N$(I} 

IF Je1 THEN Y$eY$+"-(SD}UR";: 
ELSE Y$=Ys+"-{SMOLL" 

IF K=1 THEN Y$=Y$+"(SPACE}T7" 

X=16-.5+LEN (Y$) 

PRINT "{ DOWN "TABLX):Y$ 

PRINTTAB (X) ;""; 

FOR L=1 TO LEN(Y$) 

+ PRINT "{cH"”; 

NEXT L 

PRINT 


PRINT "1. {SPACE SV ERSION{ DOWN)" 

Ye2 

X=1-5: IF X0 THEN X=%+12 

IP X=0 OR X=1 THEN PRINT TAB(Y);G1$: EL 





SE PRINT TAB{Y) :63$ 


2320 
2330 
2340 


2350 FF X>1 THEN PRINT "{UP}"TAB(Y+7):X".1SP 


PRINT TAB{Y) ;52$ 
IF %=0 THEN 2370 
PRINT TAB{Y};64$ 


ACE-SBYUND” 


2360 
2370 
2380 
2390 


2400 
2410 
2420 
2430 
2440 
2450 
2460 


2470 : 


2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 


GC5SUB 6500 

PRINT TAB(Y)s""; 

FOR L«i TO 6 

; IF L=4 AND J=ı THEN PRINT 65$;: 
ELSE PRINT "{5-}"; 

NEXT L 


PRINT 

GOSUB 6500 

PRINT TAB{Y) ;""; 

FOR L=-1 TO 6 

ı IF L=i1 OR L>3 THEN PRINT "8-3"; 
: IF L=2 THEN PRINT 65$; 

IF L=3 AND K=-1 THEN PRINT "1$-}”; 
ı IF L=3 AND K=2 THEN PRINT 65$; 
NEXT .L 

ERINT 

GOSUB 6500 

PRINT: PRINT TAB{Y) :""; 

Z=5+X 

GOSUB 6540 

Z=12+r%X 

GOSUB 6540 

IF K=-1 THEN 2=3+X:; ELSE Z=5+X 
GOSUB 6540 

IF J=1 THEN Z=9+%X: ELSE Z=8+%X 
GOSUB 6540 

Z=12+X 

GOSUB 6540 

Zeu5+tX 

GOSUB 6540 


<35> 
<206> 
<167> 


<27> 
<7> 
<252? 
<27> 
<119> 
<21> 
<577 
<234> 
<114> 
<88? 
<109> 


<63> 


<156> 
<116> 
<234> 
<255> 
<125> 
<168> 
<96> 

<92> 


<53> 
<133> 
<8> 
<1> 
<248> 
<53> 
<130> 
<236> 
<117> 
<32> 
<186> 
<77> 
<227> 


<2447 
< 2467 
<112> 
<24> 


<240> 
<137> 
<146% 
<192> 


<128> 
<131> 
<12> 
<197> 
<206> 
<252> 
<78> 
<186> 
<85> 
<184> 
<221> 
8102> 
<31> 
<37>2 
<168> 
773 
<122> 
<98> 
<169> 
<118> 
<24> 
<138> 
<183> 
<158> 
<13> 
<176> 
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2650 


AESD_ PRINT X$:TAB(20) :”2. {SPACE SVIERSIONDO 


2670 
2680 
2690 


® 
bi 


Y=22 
X-I-10: IF X<0 THEN X=X+12 
IF X=0 OR X=1 THEN PRINT TAB(Y);01$: EL 


SE PRINT TAB(Y) ;63$ 


2700 
2710 
2720 


2730 IF X>1 THEN PRINT "tUPI"TABCY+7) X”. {SP 


PRINT TABL(Y} :G2$ 
IF %=0 THEN 2750 
PRINT TAB(Y) :G4$ 


ACE SBYUND" 


2740 
2750 
2760 
2770 


2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2670 
2880 
2890 
2900 
2910 
2920 
2330 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3920 
3030 
3940 
3050 


GOSUB 6500 

PRINT TAB(Y) ;""; 

FOR L=1 TO 6 

: IF L=5 AND 3=2 THEN PRINT 65$;: 
ELSE PRINT "(5-}"; 

NEXT L 


PRINT 

GOSUB 6500 

PRINT TAB(Y) 2""; 

FOR L=1 TO 6 

IP L<3 OR L=6 THEN PRINT (523°; 
IF L=3 'THEN PRINT 65$; 

IF L=4 AND K=1 THEN PRINT "(5-}": 
IF L=4 AND K=-2 THEN PRINT G5$; 
IF L=5 AND J=1 THEN PRINT 65$; 
IF L=5 AND J=2 THEN PRINT "{5-}"; 
NEXT L 

PRINT 

GOSUB 6500 

PRINT: PRINT TAB(Y};""; 

Z=5+X 

GOSUB 6540 

Z=10+X 

GOSUB 6540 

Z=5+% 

GOSUB 6540 

IF K-1 THEN Z=B+X: ELSE Z=10+X 
GOSUB 6540 

IF JI=1 an Ze2+X: ELSE ZeirX 
GOSUB 6 

Z=5+%X 

GOSUB 6549 

PRINT 


0. 


F 


DL zu Pe Pe 7 


3060 : 


3070 
3080 


PRINT "{ HOME DOWN22}" 
PRINT "{SPACE2 SZYUX SPACE} DIESEM SPACE 





SAYKKORD{ SPACEYNOTWENDIGE( SPACE STIOENE: " 
3090. Y$=N$ (I}+"{SPACE2}" 


3100 
3110 
3120 
31309 
3130 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 


IF J=ei3 THEN X=I+4: ELSE X=-I+3 
IF X>12 THEN X=X-12 
YS=YSHNSIXIHFLSPACEZI” 

X=1+7: IF X>12 THEN X=X-12 
YE-YSHNS LK) +" SPACHEZY" 

IF K=-2 THEN 3180 

X=1+10: IF X>12 THEN X=%-12 
YE=Y$+N$ (X) +" (SPACE2Y” 

PRINT TAB(16+.5*LEN{Y$)):Y$; 


BEN LEXIKON DER AKKORDE 
PRINT "CLEAR DOWNZ SLIEXIKON{ SPACE} DER 


{SPACE SAYKKORDE" 


3250 
3260 
3270 
3280 
3290 
23300 
3310 


PRINT "{C719 DOWN2}” 


xXY=1 
GOSUB 5930 
IF X%<>1 THEN 3960 


PRINT "{CLEAR DOWN2 SAVENDERN{ SPACEIDER 


(SPACE SSYTIMMLAGE" 


3320 
3330 
3340 


46 


PRINT "{CT21 DOWNZ}“" 
PRINT TAB(5) ;61$ 
FOR I»1 TO 3 


<158> 


<33> 
<1477 
<131> 


<113> 
<115> 
<249>7 
g149> 


<109> 
<6> 
<15> 
<617 


<11> 
<0> 
<137> 
667 
<75> 
1223 
<253> 
<61> 
<2167 
<59> 
<58> 
<2593> 
<111> 
<248> 
<177> 
<183> 
<58> 
<223> 
<4> 
x243> 
x98> 
<7> 
<60> 
<27> 
<2B> 
<47> 
<158> 
«67> 
<142> 
<57> 
<194> 


<30> 

2247 
<149> 
<B9> 

<86> 

<111> 
<106> 
<149> 
<215> 
<136> 
<208> 
<176> 
<227> 
<208> 
<45> 

<225> 


<233> 
< 244) 
<2> 

<182> 
<58> 
<230> 
%42> 


<17> 

<105> 
<121> 
<108> 


3350 : PRINT TAB(5) ;52$ 


3360 
3370 
3380 
3390 
3400 
34109 
3420 
3430 


NEXT I 

PRINT TAB(5);63$ 
PRINT: PRINT TAB(5); 
FOR A=6 TO 1 STEP — 
ı Z=EiA} a) 

; GOSUB 6540 

NEXT A 

PRINT 


3440 : 


3450 
3460 
3470 
| 3480 
3490 
3500 
3510 
3320 : 
3530 
3540 : 
3550 
3560 
3570 
3580 
35909 
3500 
3610 
3620 
3630 
3640 
3650 
3660 
3570 
3680 
3690 
3700 ; 
3710 ; 
3720 


3730 : 
3740 


3750 
3760 
3770 
3780 
3790 
3800 
3810 
3920 
3830 
3840 
3850 


3860 : 


ER" 


3870 : IF YS=CHRELLI36)THEN FUS="ALLE{SPACE 5 
SYAITEN{ SPACE}EIN! SPACE SHYALBTON{ SPACH}HOEH 


ER" 


A=6 
CHAR, 0,14, CHR$ (27) +" Q" 
PRINT TAB{11-A)"iCY UP3}" 
GETKEY Y$ 
IF YS<CY>"(LEFTITHEN 3530 
s A=Atl: IF A>6 THEN Asl 
: PRINT "{uP}" 
GOTO 3460 
IF Y$< >"{ RIGHT)" THEN 3570 
A=A=-1: IF A<1 THEN A=6 
» PRINT "upr" 
: GOTO 3460 
IF YS<>"{VP}"AND Ys< >" { DOWN) "THEN 3670 
: IF Y$="{UP)"THEN E{A)=E(A)-1 
» IF Y$="t{ DOWN} "THEN E(A}=E(A)+1 
» IF E(A)<ı1 THEN Et(A)=12 
» IP E{A}>12 THEN E(A)et 
» PRINT TAB(11-R);""; 
+ Z=E(A) 
ı GOSUB 6540 
: PRINT "(UP}® 
+ GOTO 3480 
IF YS<>CHR$ (133) THEN 3720 
: Ei1)=-5; Ei2)=12: E(3)=8 
ı Eis)=3: E(53=10: Ei6)=5 
» CHAR,O,11, 
GOTO 3380 
IF Ys< >CHR$ (134) AND 
Y$< >CHR$S{135)THEN 38900 
FOR A=1 TO 6 

IF Y$=CHR$ (134) THENE(A)=E(A)-1 
:ELSE E(A)=E(A)+i 

IF EtA)gı THEN EiA)=12 

IF E{A)>12 THEN E(A)=1 
NEXT A 
CHAR, 0,11,"" 
GOTD 3380 
IF Y$=-CHR$(140)THEN 380 
IF Y$< >CHR$ (136) THEN 3050 
: FU$="{ SG} RUNDEINSTELLUNG” 
: GOSUB 6590 
: GOTO 3480 
IF Y$< >CHR${137) AND 
Y$S<>CHRS (138) THEN 3900 


m) 


u. gm 




















38890 : GOSUB 6590 


3890 ; 


60OTO 3480 


3900 IF Y$<>CHRSCLI9) THEN 3940 


3910 ; 





AUPTMENUE" 

3920 : GOSUB 6590 

3930 : GOTO 3480 

3940 IF Y$<S>CHR$ (13) THEN 3460: 


ELSE G60TO 3240 


3950 : 
3960 Q=2 
3970 R$O)="{ RVSON}" 


3980 PRINT "MIT{SPACEY "R$ 1) "VERMINDERTER {AV 
SOFF SPACE / {SPACE} "R$12} "REINER AVSOFF SPAC 








EY/ SPACE} "R$ (3) "ERHOEHTER { RYSOFF} " 
3990 PRINT TAB(19) ;"{SCYUINTE" 
4000 R${Q)="": PRINT "iUP3” 
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IF Y$=CHR$ (137) THEN FÜ$="ALLE(SPACE 5 
SYAITEN{ SPACEYEIN{ SPACE SHYALBTON{ SPACE}TIEF- 


FU$=" { SR}UECKKEHR ( SPACEIZUM( SPACE SH) 


<64> 
x65> 
<175> 
<65> 
<70> 
<218> 
<77> 
<109> 
<12> 
<183> 
<206> 
<164> 
<183> 
<211> 
<194> 
54> 
<131> 
<176> 
<144> 
<139> 
<171> 
<216> 
<48> 
<170> 
<34> 
<170> 
<169> 
<242> 
<193> 
<52> 
<16> 
<71> 
<127> 
<203> 
<205> 
<255> 
<117> 


<84> 
<174> 


<101> 
<64> 
263> 
<201> 
«797 
<197> 
<116> 
<100> 
<160> 
<11> 
<252> 


772 


<20> 


<140> 
<62> 
<46> 
<220> 


837 
<102> 
<86> 


<157> 
<183> 
<210> 
<144> 


<112> 
<30> 
<139> 


PROCK/AMLIE A 














4010 GETKEY Y$ <231> | 4720 ; NEXT B <134> 
4020 IF Y$="{LEFTI"THEN Qe1l: GOTO 3970 <8> 4730 ; PRINT <248> 
4030 IF Y$="{UPY"OR Y$="{DORN}"THEN 0=2: 4740 : GOSUB 6500 <112> 
GOTO 3970 <243> | 4750 NEXT A <164> 
4040 IF Y$="{RIGHTY"THEN Q9=3: GOTO 3970 <50> 4760 <228> 
4050 IF Y$< >CHR$L13)THEN 4010 <5> 4770 PRINT: PRINT TAB(Y);""; <248> 
4060 Gti)eL <233) | 4780 FOR A=6 TO 1 STEP —1 <185> 
4070 IF J=1 THEN Z=I+4 <117> 1 4790 : IF P(A}=-i1 THEN PRINT "{SPACE}"; 
4080 IF J=2 THEN 2=1+3 <121> GOTO 4920 <213> 
4090 IF J=3 THEN Z=I+5 <155> ] 4800 : Z=E{A)rPtA) <190> 
4100 IF Z>12 THEN 2Z-Z-12 <95> | 4810 ; GOSUB'6540 <202> 
4110 6{2)=Z <133> | 4820 NEXT A <234> 
4120 IF Q=1 THEN Z=I+6 <202> | 4830 : <42> 
4130 IF Q=2 THEN ZeI+7 <226> | 4840 Y=1B <42> 
4140 IF Q=3 THEN Z=Ir8 <250> | 4850 PRINT "{HOME DOWN3}"TAB(Y) ;"{SZIUL SPACE 
4150 IF Z>12 THEN Z=2-12 <145> }YDIESEM{SPACE SAY SA}YKKORD" <204> 
4160 G{3)=2 <186> | 4860 PRINT TAB{Y). "GEHOERIGEI SPACE SN}YOTEN: { 
A170 : <148> | DOWN" <172> 
4180 FOR A=1 TO 3 <167> | 487G PRINT TAB(Y); ;N$ (I) "(SPACEZ}"; <240> 
4190 z GV{A)=-0 <113> | 4880 IF J=1 THEN ZeIl+4 <163> 
4200 NEXT A <124> | 4890 IF J=2 THEN Z=I+3 <167> 
4210 : <189> | 4200 IF J=3 THEN 2=I+5 <201> 
4220 FOR A-1 TO 6 <225> | 4910 IF Z312 THEN 2=Z-12 <140> 
4230 : PtA)=-1 €26> | 4920 PRINT N$(Z) "(SPACEZI": <47> 
4240 : FOR B=0 TO 4 <158> | 4930 IF Q=1 TNEN Z=I+6 <247> 
4250 : IF E{A)+B>12 THEN Z=E(A) +B-12: 4940 IF Q=2 THEN Z=I+7 <15> 
ELSE Z=E{A)+B <150> | 4950 IF Q«3 THEN Z=T+68 <39> 
4260 ; FOR C=1 10 3 <179> | 4960 IF Z>12 THEN Ze2-12 <190> 
4270 : IF Z=6(C)THEN P(A)=B: 4970 PRINF N$(Z} <118> 
GVLC)I=GVLC)+L: GOTO 4300 <11> 4980 : <193> 
4280 z NEXT C <207> | 4990 FOR A=1 TO 5 <224> 
4290 : NEXT B <214> | 5000 » G(A)=-O <40> 
4300 NEXT A <224> | 5010 NEXT A <169> 
4310 : <32> 5020 Ze0ı F2=0 <145> 
4320 F=D <42> 5030 A=1 <241> 
4330 FOR A=1 TO 3 <61> | 5040 PRINT "tAOME DOWNS}"TABLY) ;" ( SFFOLGENDE 
4340 : IF GV(A)=0 THEN F=A <91> {SPACE SZYUSATZ-" <228> 
4350 NEXT A <18> 5050 PRINT TAB(Y) ;"INTERYALLE{ SPACEYMOEGLICH 
4360 IF F=0 THEN 4500 <36> : { DOWN <150> 
4370 FOR A=1 TO 6 <ı20> | 5060 RHA)="LRUSON » <150> 
4380 : Z=G{F)-E(A) <228> | 5070 PRINT TAB(Y) ;R$11}: "TSSYEXTE" <16> 
4390 : IF Z£0 THEN Z=2+1?2 <130> | 5080 PRINT TAB{Y);R${2};"{5S}YEPTIME" <188> 
4400 : IF Z>4 THEN 4480 <593> 5090 PRINT TAB(Y);R$(3); "GR. {SPACE SSIYEFTIME 
4410 ; X=E{A)+PtA): IF X>12 THEN X=X-12 <2> " <124> 
4420 3 IF X=I THEN X=1: GOTO 4440 <96> 5100 PRINT TAB(Y):R$(4);: "KL. {SPACE SN}ONE" <72> 
4430 IF X=I+3 OR X=I-9 OR X=I+4 OR X=1-58 O0 5110 PRINT TAB{Y) ;R$ (5); "{SMONE" <106> 
R X=145 OR X=1I-7 THEN X=2: ELSE X=3 <222> | 5120 PRINT TAB(Y);R$ 16) ;"t{ DOWN SMYENUE" <149) 
4440 : IF BV{X)>1 THEN GV(X)=-GVIX)-L: 5130 RS{A)="" <43> 
ELSE 60OTO 4480 «116> | 5140 GETREY Y$ <B6> 
4450 : Pi(A)=2 <56> 5150 IF Y$<>"{LP}"THEN 5180 <11> 
4460 ; GV({F)1 <161> | 5160 : A=A-1: IF A<1 THEN A=5 <215> 
4470 : GOTO 4320 <85> 5170 : GOTO 5040 <21> 
4480 NEXT A <149> | 5180 IF Y$<>"{ DOWN}"THEN 5210 <96> 
4490 : <213> | 5190 : A=Arl: IF A>5 THEN Ari <204> 
4500 SCNCLR <141>} 5200 : GOTO 50409 519 
4510 YS-N$ (I) <137»} 5210 IF Y$<>"{LEFTY"AND Y$< >" CRIGHTY"THEN 52 
4520 IF J=2 THEN Ys=-Ys+r"M" <207> | 40 <67> 
4530 IF J«3 THEN Ys=Y$+"{SPACE}JSUS{SPACEHHA" <187>| 5220 : A=6 {347 
4540 IF Q=1 THEN Ys-Ysr"-" «773 5230 : GSOTO 5040 <81> 
4550 IF Q9=3 THEN Y$=Y$+"+" «69> 5240 IF Y$< >CHR${13})THEN 5140 <2437 
4560 X=7-.5*LEN{Y$)} <56> 5250 IF A=6 THEN 3809 <14> 
4570 PRINT TAB(X);Y$ <175>1 5260 ; <218> 
4580 PRINT TAB(X);""; <57> 5270 PRINT "{HOME DOWN1OY" S <65> 
4590 FOR Asi1 TO LEN(YS) <96> 5280 FOR B=1 TO A <7773 
4600 : PRINT "iLY}”; <195> 4 5290 : PRINT "{DORN}”; «2247 
4610 NEXT A <24> 5300 NEXT B <206> 
4620 PRINT: PRINT <246> | 5310 IF G(A)=1 THEN 5370 <i103> 
4630 Y=A <129> | 5320 IF Fl=A OR F2=A THEN 5040 <186> 
4640 PRINT TAB(Y) ;G1$ <8> 5330 IF Fi<X>Q AND F2<>0 THEN 5040 <38> 
4650 PRINT TABtY) :62$ <25> 5340 G{A)eil <142> 
4660 FOR A=-1 TO 4 <143> | 5350 IF Fi=0 THEN Fi=A: YY=0; 
4670 : PRINT TAB(Y);""; <73> ELSE F2=A: XYy«1 <111> 
4680 : FOR B=6 TO 1 STEP -1 <150> | 5360 GOTO 5400 <67> 
4690 : IF P(B)=-1 AND A=1 THEN PRINT "(5%X) 5370 G(A)=-O <166> 
N GOTO 4720 <205> | 5380 IF Fi=A THEN XY=-D: Fi=0 <219> 
4700 : IF P{B)=A THEN PRINT 65$; <228> | 5390 IF F2=A THEN XY=1: F2=0 <255> 
4710 : iF PtB)<>A THEN PRINT "t(5-}"; <137> | 5400 PRINT TABLY-2) ;""; <224> 
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5410 IF G(A)=1 THEN 5440 <181> | 6080 : GOTO 6480 <205> 
5420 PRINT "{SPACH"; <45> 6090 IF Y$=CHR$(140)THEN 380 <111> 
5430 GOTO 5460 <162> | 6100 IF Y$<>CHRS(A36)THEN 6150, <236> 
5440 IF XY-1 THEN PRINT "#";: 6110 : IF HM<>3 THEN 6040 <213> 
ELSE PRINT "{RVSON S- EVSOEF}"; <240> | 6120 ; Füge" SS} TIMMLAGE{ SPACE}AENDERN" 215> 
5450 : <153> | 6130 : GOSUB 6590 <16> 
5460 GOSUB 5760 <205> } 6140 : GOTO 6040 <2292 
5470 : <173> | 6150 IF YS<>CHR$(139)THEN 6190 &177> 
5480 IF GtA)=1 THEN PRINT TAB(Y+15) ;N$(C): 6160 : FÜ$="{ SRYUECKKEHR{SPACEIZUM( SPACE SH} x 

ELSE PRINT TAB{Y+15) ;: "{SPACEZ}" <213> | AUPTMENUE" <38> 
5490 GOTO 5040 <202> | 6170 : GOSUB 6590 <57> 
5500 : 203? | 6180 : GOTO 6040 <14> 
5510 :REM END <78> 6190 IP Y$<>"{LEFTY"THEN 6220 <64> 
5520 : <223> | 6200 : I=I-1: IF I<1 THEN Ir12 <175> 
5530 SCNCLR <151> | 6210 : GOTO 5990 <102> 
5540 A=l <241> | 6220 IF Y$< >" (RIGHT) "THEN 6250 «2> 
5550 RS lA)="tRVSON“ <130> | 6230 : I=I+1: IF I>12 THEN I=l <191> 
5560 PRINT "{HÖME DOWN SEYNDE{ SPACE} RELLY"J 6240 : GOTO 5990 <132> 
A{RVSOFE SPACE) / {SPACE} "R$& (2) "NEIN(RVSOFF SP 6250 IF Y$<>"(DPY"AND YS<y"t DOWN) "THEN 6280 <177> 
ACE}?" <812 6260 : I=1 <50% 
53570 RELAI-"" <228> | 6270 : GOTO 5999 <162> 
5580 GETKEY Y$ <15> 6280 IF Y$< >CHR$(13)THEN 6040 <6> 
5590 IF Y$="{LEFTY"THEN Ari: GOTO 5550 <96> 6290 AK=I <187> 
5600 IF Y$="{RIGHT}"THEN A=2: GOTO 5550 <117> | 8300 : <238> 
5610 IF Y$<>CHR$ (13) THEN 5580 <210> | 6310 PRINT: PRINT <150> 
5620 IF A=2 THEN 980 <113> 6320 : 22> 
5630 SCNCLR <251> | 6330 J=1 <19> 
5640 KEY 1,”"9%51525: { SPACE}3-PLUS-1{SPACE" <106> | 6340 Rs{JJ="{RVSON}” <191> 
5650 KEY 2, "DLOAD"+CHRS$ (34) <166> | 6350 PRINT TAB(1);R${1)"1UP SDYUR{RVSOFF SPA 
5660 KEY 3, "DIRECTORY" +CHB$ (13) <203> CE) / SPACE) "Rs (2) "{ SMOLL{ RVSOFE) "; U <189> 
5670 KEY 4, "SCNCLR"+CHR$ (13) <117> | 6360 IF XY=1 THEN PRINT "USPACEY/ SPACE) "RS 
5680 KEY 5, "DSAVE"+CHR$ (34) <67> 33" {SQ} UART{ SPACE} ALS{ SPACE SVYORHALT{ RUSOFF 
5690 KEY 6, "RUN"+CHR$ (13) <36> yr, “zn E <206> 
5700 KEY 7,"LIST"+CHR$ (13) <213> | 65370 PRINT <147> 
5710 KEY 8,"BELP"+CHR$ {13} <100> | 6380 R${JJ="" «53> 
5720 END <238> | 6390 GETKEY Y$ <60> 
5730 ; <178> | 6400 IF Y$="{LEETI"THEN J=1: GOTO 6340 <191> 
5740 «REM UNTERPROGRAMME <68> 6410 IF Y$="{UP)Y"AND XY=1 THEN J=2: 

3250 : <198> GOTO 5340 <129> 
5760 C=I+8+A <155> | 6420 IF Y3="{DOWN "AND XY=-1 THEN J=2: 
5770 IF Ay3 THEN C=C+Hl <x59> GOTO 6340 <139> 
5780 IF C>12 THEN C=C-12: 6430 IF Y$="{RIGHTI"AND XY=0 THEN Je2: 
ELSE 60TO 5800 <238)> SOTO 6340 <209> 
5790 GOTO 5780 <28> 6440 IF Y$="{RIGHTI"AND XY=1 THEN J=3: 
5800 FOR B=e1 TO 6 <21> GOTO 6340 <247> 
5810 ; Z=C-E{B) <102> | 8450 IF Y$<>CHR$(L3)THEN 6390 <30> 
5820 : IF 2<0 THEN Z=2+12 <29> 6460 PRINT: PRINT «45? 
5830 ; IF Z>4 THEN 5900 <183> | 6470 XX=0 <61> 
5840 : X=COM+160*Z-B <38> 6480 RETURN <247> 
5850 : IF XY=1 AND G{A)=1 THEN XX»42: 6490 + <173> 
ELSE Xx=221 <27> 6500 PRINT TAB(Y) ;62$ <90> 
5860 ; IF G{A)=0 THEN XX=93 <118> | 6510 PRINT TABH{Y) :63$ <1077 
5870 : IP Z=D AND G{A)=1 'THEN POKE X+40,15: 6520 PRINT TAB(Y} ;G2$ <110> 
GOTO 5900 <200> |] 6530 RETURN <41> 
5880 : IF Z=0 AND G{A}=0 THEN POKE X+40,32: 6540 IF Z>12 THEN 2=2-12 <240> 
GOTO 5900 <175> | 6550 PRINT LEFTS({N$IZ).1); <231> 
5890 : POKE X.XX <1> 6560 IF Z=2 OR Z=4 OR Z=7 OR Z=9 OR Zril THE 
5900 NEXT B <41> N PRINT "(DOWN LEFTY#{UPY"; ELSE PRINT "(DOW 
5910 RETURN <187> | N LEFT SPACE UPY"; <198> 
5920 : <113> | 657p RETURN «81> 
5930 FOR I=1 TO 12 «230» } 6580 : <7> 
5940 : PRINT TAB (A (I-1)) ;NS(H) "(SPAGEZI" «152> | 6590 CHAR,19-.5*LEN (FU$) ‚22, FU$ <39> 
5950 NEXT I <105> | 58600 GETKEY Y$ <15> 
59650 PRINT <248> | 6610 CHAR,D, 22.CHR$ (27)+"Q" <247> 
5970 : <163> | 6620 REM PRINT "(HOME DOWNS}" <40> 
598Q I=AK <15> 6630 RETURN <141> 
5990 PRINT "{HOME DOWN?) "CHR$(27)+"Q"; <91> ENDE DES LISTINGS 
6000 IF I=7 OR I=9 OR I=il THEN X=3.4*(1I-1): 

ELSE X=3.5* (1-1) <179> NT ht = = h z 
6010 PRINT TAB{X);"": <213> = 
6020 IF I=2 OR I=4 OR I=7 OR I=9 OR I-11 THE IC vergessen. rscnel 
N PRINT "tCY2}”;: ELSE PRINT "ic": <142> ; 5 fü & 16 
6030 : <223> = 
6040 GETKEY Y$: IF en 6040 <26> : alelekels ermin Tur 
6050 IF Y$< >CHR$ (133) THEN 6090 <2> 
6060 : IP HM<>5 THEN 6040 162 | KYolsle TRIER BER: 
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Ein längeres Basic-Programm 
einzutippen, artet ja meistens 
in Arbeit aus. Da wäre os doch 
eine echte Erleichterung, 
könnte man die Betehle mit el- 
nem einzigen Tastendruck ein- 
geben. Computer, die das kön- 
nen, gibt es ja; man denke da 
nur an den Spectrum. Mit un- 
serem Programm MACRO- 
TAST geht dies nun auch auf 
dem G16. 


Es handelt sich um ein MC- 
Programm, das mit dem TED- 
MON geladen und gestartet 
werden muß. Das Programm 
belegt den Speicherbereich 
von $ 1000 bis $ 1250. Der Ba 
sicstart wird von $ 1000 nach 
$ 1300 verlegt. Gestartet wird 
Macrotast mit dem Kommando 
G1226. 


Nach dem Start sieht man in 
der oberen Bildschirmzeile die 
Meldung: "MACROTAST. 
OFF”. Dies bedeutet, daß die 





Tastatur zunächst ganz normal 
genutzt werden kann. Durch 
das Drücken der Taste neben 
dem "P”, dem "Klammer- 
affen”, ändert sich die Anzeige 
in "MAGROTAST. ON”. Jetzt 
ist es möglich, die Basicbefehle 
mit einem einzigen Tastern- 
druck auf den Bildschirm zu 
bringen. Wollen Sie z.B. den 
Befehl "READA$” eingeben, 
soreichtes, die Taste "Q", den 
Klammeraffen und dann ein 
”A” sowie ein Dollarzeichen 
einzutippen. Dann wieder der 


Knopfdruck 
= genügt 


PROSRAMDIE Ma 





Klammeratfe um Macrotast zu 
raaktivieren. Das mag zwar auf 
den ersten Blick etwas kompli- 
ziert klingen, nach kurzer Ein- 
gewöhnungszeit kommt man 
aber sehr gut damit zurecht, 


Desweiteren ist man nicht auf 
die vorgegebene Tastaturbele- 
gung angewiesen. Mit dem 
zweiten Teil, er trägt den Na- 
men MACROTOOL, kann sie 
geändert werden. Achtung! 


Dieser Programmteil Tunktio- 





niert nur, wenn vorher Macro- 
tast gestartet wurdel Hat man 
mit Macrotool die Belegung 
geändert, so wird sie als Pro- 
gramm unter dem Namen Mäc- 
rotast abgespeichert. 


Bei der Eingabe gehen Sie so 
vor, daß Sie den MC-Checker 
an Adröosse 12680 logen und 
den ersten Teil eintippen. Mit 
dem Befehl S’MACROTAST”, 
8(,1),1000, 1258 wird er abge- 
speichert, Teil 2 ist ein Basic- 
programm, das unter dam Na- 
men "MACROTOOL" abzusa- 
von ist. 


Programmname: MACRO- 
TAST 
Computertyp: 
Plus 4 


C16/116/ 


Lauffähig auf: Floppy und 
Datasetie 
Besonderheiten: 
tert die Eingabe von Basic- 
Programmen 


Erleich- 


MC-LISTING MIT CHECKSUMMEN OVM10 >10CHh 06 20 B2 90 DO F6 60 A4 ::00 »>1198 02 03 A2 FF 86 3A 20 7D ;::55 
>10CB 49 29 7F 20 DB2 90 60 00 ::;EA >11A0 11 4C 19 87 00 00 00 A9 :;09 
>10D0 00 00 AC 1D 10 00 00 88 ::Bü Se It e = 2 = he % ::14 

>»1000 Al A4 EO 83 D5 Bi 89 ar >»10D8 C7 20 95 DF 8E 49 05 20 :;C9 1 02 03 58 0 ı:DE 
>1008 8B 85 F9 EC &C 82 91 = »:EB >10E0O 87 DF A9 00 85 CB AC E7 ::77 >i1BB 00 20 FA DE EA A2 00 BD ::35 
31010 87 BE SE A? FC DB FD ED ::9A >10EB 07 AS CA 30 13 C5 CD 90 ::6D >11C0 CB 11 FO 06 9D 00 0OC EB ::4B 
>1018 C2 97 EA EA EA 20 B5 i1 ::4B »10F0 OF A4 C5 CD 49 05 DO 04 ;:35 »11C8 DO FS5 60 20 20 20 20 0D ::DB 
>1020 20 B4 DB AA CA Bi EA 48 ::8E >10F8 C4 C3 Fü 02 BO 11 85 CD ;:08B »11D00 01 03 12 OF 14 01 13 14 ::E9 
>1028 AD 35 05 91 EA 98 1B 65 ::AQ >1100 84 CA 4C 16 11 98 48 8A ;:92 »11D8 2E 20 20 20 20 20 20 20 ::77 
>»1030 CB 8b OD FF A5 C9 69 00 ::13 »1108 48 35 C7 FO C5 10 08 A9 ::79 >MiEO 20 20 20 20 20 20 20 20 ::?1 
>1038 E9 0B 8D OC FF XS EF OD s:E8 >»1110 00 85 C7 AC 74 CF EA 20 ::34 JL1EB 20 20 20 20 20 OF 06 06 ::8D 
>1040 SD 05 FO F9 68 91 EA AY ::87 >1118 A8 D8 20 2F DF 85 CE 2% ::00 >i1lFD 20 20 20 00 00 00 A3 00 ;;60 
»1048 FF 8D 0C FF 8D OD FF 20 ::99 31120 3F 06 CE 24 CE 10 02 09 ::32 >»11F8 8D 00 04 A9 06 OD EE 11 ::BC 
>1050 Ci DA AE 00 04 FO 14 CI ::63 >1126 80 90 04 A6 CH DD 04 70 ;:Fü >1200 8b EP 11 4C 1D 10 EA EA ;:97 
>1058 41 90 10 C9 5B BO 0C E9 ::A0 >1130 02 09 40 20 BA DY A4 CD ::31 >1208 EA A9 20 BD 00 04 BD EF ::55 
>1060 40 AA BD 00 10 20 9E 1D ::1D »1138 CC 49 05 90 OA A4 CA CA ::A6 »1210 13 A9 OE 8D EE 11 4C ID ::EB 
>1068 AC 20 10 C9 40 FÜ 20 EA ::68 >1140 C3 90 04 66 C? 30 03 20 ::FO >1218 10 EA EA EA AD 00 04 FO ::71 
>1070 EA EA EA C9 0D FO 20 20 ::Ei >1148 BF DF C9 DE DO 02 A9 FF :ıSC >1220 EB 4C F6 11 00 00 A9 11 ::FF 
>1078 49 DE AC 20 10 EA EA EA ::6F >1150 85 CE 68 AA 68 AB AS CE ::4D >1ı226 A2 9A 74 80 03 03 BE 02 ::BF 
31080 EA EA ER EA EA ER EA EA ı::78 >1158 18 60 00 00 A5 98 DO 0B ::ı12 >1230 03 58 A9 13 85 2C 85 2E ::FO 
>1088 EA EA EA ER EA EA EA AC ::90 »1160 A5 CA 85 C5 AS CD 85 CA ::17 >1238 20 B5 11 A9 00 8D 00 13 ;:91 
>1090 ıC 12 ER ER EA EA EA A2 ::CA »1168 4C 05 11 C9 03 DO IF 05 ;:16 »1240 20 8B DB AC 9A 11 00 00 ::88 
>1098 00 4C D? 10 EA EA AR 84 ::D9 »1170 C7 85 C7 AD ES 07 85 C3 ::C8 >1248 00 00 00 00 00 00 00 00 ::5A 
>10A0Q 49 AD 41 84 29 A0 HE 84 ::9D >1178 4C 05 11 00 00 A2 00 20 ::DE »1250 36 2C 32 34 33 39% 00 9B ::83 
>10A8 22 AO 00 CA 10 OF Bl 22 ::D3 31180 5C 11 C9 OD FO OB 9D 00 ::DB >1258 20 20 20 20 20 20 20 20 ::EA 
>10B0O 48 E6 22 DO 02 E6 23 68 ::1D >1188 02 EB EO 59 90 Fi 4C AC ::59 

>10B8 10 F4 30 EF C8 Bi 22 30 ::88 >1190 CC AC 31 90 EA 00 00 6C ::CA ENDE DES LISTINGS (NVM) 


Alle Programme aus diesem Heft gibt es schon lauffähig 


auf Kassette & Diskette. Schauen Sie doch einfach 
mal nach im Tronic-Softwareservice Il 
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BE PROCRAMLIE 


C-16 LISTING + CHECKSUMMEN (0C V1.0) 


10 REM PETE 0 Eu 2 5 2 0 5 2.2 2 2 2.5 2022 0 21 
20 REM EEE FE EEE 
30 REM warum wukhrk 
a0 REM *rnn«e MACTOOL EL 
50 REM wurkhw u wur" 
60 REM «reemer  (C) 1986 BY we 
70 REM tea  EGON GEMMEL wenn“ 
80 REM *#krwr FUER Ci6 /116 wertet 
9 REM EEE 5 a 5 2 a 0 5 u 5 5.2 0.2 2 2.2 2. 20202 


100 PRINT" (HOME2 CLEAR}" :CHAR1,3,3,"1-{SPACE 
YEIN/AUS { SPACE} TASTE ( SPACE? AENDERN" = 
110 CHAR1.3,5, "2-1 SPACE) BEFEHLE1{ SPACE} AENDER 
N“ F 

120 CHAR1.3.7."3-{ SPACE} TASTENKOMBINATION{ SP 
ACEYAENDERN” 

130 CHAR1.3,9. "4-1 SPACE} ABSPEICHERN" 

140 CHAR1,3,.11, "5-1 SPACEYLADEN" 

150 CHAR1,3,13. "6-1 SPACE)ENDE” 

160 PRINT: PRINT: PRINT 

170 INPUT"GEBEN{ SPACE}SIEiSPACE)DIE(SPACEYGE 
WUENSCHTE ( SPACE} NUMMER { SPACEYEIN" ;A 

180 ON A GOTO 200,300.400,500, 600,700 

200 PRINT" CLEAR)" :CHAR1,3,3, "EIN/AUS{ SPACE) 
TASTE SPACE) AENDERN" 

210 PRINT: PRINT:PRINT"GEBEN{ SPACE)SIELSPACE} 
DIE{ SPACE}ITASTE ( SPACE} EIN SPÄCE}MIT{ SPACEYDE 
R({ SPACE) SIE" Sa 

220 PRINT"MACROTEXT{ SPACEYEIN( SPACEYBZW. (SPA 
CEY AUSSCHALTEN { SPACEYWOLLEN ." 

330 PRINT:PRINT: INPUT"DRUECKEN t SPACE) SIE{SPA 
CEIDIE ( SPACE} GEWUENSCHTE( SPACEYTASTE" ;T$ 

240 POKE 4204,ASC(T$):GOTO 100 

300 PRINT" CLEAR)" :CHAR1.3,3, "BEFEHLE! SPACE} 
AENDERN" 

310 Zi=0:A=DEC ("1000") :T=128:Z=PEEK (4184) ;AD 
R-DEC ( "LO9E") :PRINT;PRINT: PRINT 

320 PRINT"AUF{ SPACE}DEM{ SPACE) BILDSCHIRM SPA 
CE) ERSCHEINT { SPACEYDIEtSPACEI TASTE." 

330 PRINT"DER{ SPACE} BEFEHL, DER(SPACEISIE( SPA 
CE} BELEGT. UND{ SPACE) DIE! SPACE}YMOE- SPACEZICL 
ICHE4 SPACE} BEFEHLE. ® 

340 PRINT"SIE{ SPACE) KOENNEN { SPACEYDIE( SPACE) 
MOEGLICHE{ SPACE) BEFEHLE{ SPACEYMIT ı SPACE} DEN 
{ SPACE) CURSORTASTEN { SPACE) AUF ( SPACEYUND{ SPAC 
E)ABWAERTS" 

550 PRINT"SCROLLEN. HABEN ( SPACE)ISIE{ SPACE)DEN 
SPACE} GEWUENSCHTEN { SPACEI BE- ( SPACE) FEHL{ SPA 
CE)YGEFUNDEN, BESTAETIGEN{ SPACEYSTE( SPACEYDIES 
EN" 

360 PRINT"MIT{ SPACEYDER(SPACE RVSON}RETURN-T 
ASTEI RVSOFF} ." 

370 CHAR1,1,20, "TASTE" :CHAR1,10,20,"JETZ. {SP 
ACE} BEFEHL" : CHAR1 , 25,20, "MOEGL. ( SPACE) BEFEHL 



























































380 GOSUB 1000 

390 G0TO 100 

AOO PRINT" {CLEAR}":CHAR 1,3.3. "TASTENKOMBINA 
TION { SPACE} AENDERN" ;PRINT 

410 PRINT: PRINT:PRINT"GEBEN {SPACE} SIE{ SPACE) 
DIE{ SPACH}ASCII-CODES i SPACEI DER ( SPACE} ZEICHE 
N" . “ 

420 PRINT" AUF ( SPACE} WELCHEN { SPACE}SIE{ SPACE} 
DIE{ SPACE) BEFEHLE{ SPACE) ERREICHEN" 

430 PRINT"WOLLEN{ SPACEFEIN. " :PRINT:PRINT"Z.B 
SPACE} 65-90 SPACE) FUER { SPACE} A-Z 1 SPACE}ODE 
RiSPACH} 193-2181 SPACE) FUER" 

440 PRINT"SHIFT+A ( SPACE} -{ SPACEYSHIFT+Z2 SPAC 
E}.": PRINT: PRINT“ BITTE( SPACE} BEACHTEN SPACE} 
SIE SPACE} BEI{ SPACE) DER{ SPACEYEINGABEI SPACE! 











450 PRINT"DASS{ SPACE) ES{ SPACEISICHL SPACE) UM 
SPACE} 26 { SPACE} ZUSAMMENHAENGENDE ( SPACH} " : 
60 PRINT"CODESt SPACE) HANDELN ( SPACEYMUSSI SPA 


50 


<15> 
<257 
<113> 
$41> 
<93> 
<189> 
<114> 
<79> 
<95> 
<30> 
<9 
<93) 
<55> 
<210> 
«2557 
<993> 


<198> 
<166> 


<116? 


<75> 
<43> 


<222> 
<69> 


<253> 
<251> 
<193> 


x76> 


<196> 


<139> 


<49> 


<33> 
<172> 
<194> 


g101> 


<122> 
<76> 


<231> 


<1077 
<138> 


CE) (A-Z1 SPACE) BZW SPACE} 65-90) ( SPACEI !" 
470 PRINT:PRINT: PRINT: INPUT "VON{ SPACE" :C1: 
INPUT"'BIS{ SPACE} " ;C2 

480 IF C2-C1<> 25 GOTO 400 

490 POKE 4184,C1:POKE 4188,C2+1:POKE 4192.C1 

-1:G0T0 100 

500 PRINT" (CLEAR) " :CHAR1 ,3,3, "ABSPEICHERN" 

810 PRINT: PRINT; INPUT"DATASETTE(1) { SPACEYODE 

R{SPACEYDISKETTE(8)"; C:IF C<>1 AND C<)8 THE 

N 500 

520 PRINT:PRINT:PRINT : INPUT"NAME(SPACH}YDES{$ 
PACEYPROGRAMS" : P$ 

530 L-LEN(P$):IF L>15 THEN PRINT:PRINT"NAMEt 

SPACE ZU SPACEILANG":FOR A=0 TO 1000:NEXT:GO 

TO 500 

540 FOR A=1 TO,.L:A$=MID$(P$,A.1):POKE 604+A, 

ASC (AS) 

550 NEXT A:POKE 174,C:POKE 173,1:POKE 243,0: 

POKE 171,L:POKE176,2:POKE175,93 _ 

560 POKE 241,80:POKE 242.18: POKE i61,00:POKE 
162,16:POKE 176,2: POKE173,93 

570 POKE 2034,161:POKE 2035 ,PEEK(241) :POKE2O 

36, PEEK (242) 

580 SYS(DECL"FFDB")):GOTO 100 

600 PRINT" { CLEAR} ":CHAR1.,3,3, "LADEN" :PRINT:P 

RINT:PRINT 

610 PRINT"STE{SPACE}KOENNEN SPACE) NUR { SPACE) 

MIT SPACE} DIESEM < SPACE} PROGRAMM{ SPACE} ÄB-" 

620 PRINT"GESPEICHERTEN ( SPACE} PROGRAMME { SPAC 

EYLADEN{ SPACE)!" : PRINT: PRINT:PRINT 

630 INPUT“DATASETTE (1) { SPACE}ODER{ SPACEYDISK 

ETTE(B}":C:IF C<>1 AND C<>8 THEN 600 

640 PRINT: PRINT: PRINT: INPUT"NAMEN(SPACEIDES{ 

SPACE? PROGRAMMS { SPACE} :" ;P$:L=LEN (P$) 

650 IF L>15 THEN PRINT:PRINT"NAMEt SPACE}ZU(S 

PACE}LANG":FOR A=0 TO 1000;NEXT:GOTO 600 

660 FOR A=3 TO L:A$-MIDS (P$,A,1) :POKE 604+A, 

ASC(A$) :NEXT A:POKE 174,C:POKE 173,1 

670 POKE 243,0:POKE 171,L:POKE 2034,00:POKE 

154,128: POKE 176,2:POKE 175,93 

680 POKE 1371,76: 

690 SYS(DEC("FFDS")):POKE 154,0:60T0 100 

700 PRINT" {CLEAR}" :CHAR1,3,3, "ENDE": 

710 PRINT:PRINT: PRINT: PRINT"{SPACES FLASHON 

RVSON SPACE) ACHTUNG { SPACE) ! ! !{RVSOFF FLASHÖF 

F}" : PRINT 

720 „PRINT: PRINT"DAS{ SPACE) PROGRAMM { SPACEYWIR 

Di SPACE}GELOESCHT { SPACEN! }}" 

730 PRINT; PRINT: PRINT; INPUT"ZURUECK{ SPACE} IN 

$( SPACEYHAUPTMENUE” ;A$: IF As="J" THEN GOTO 1 

00 

740 NEW 

1000 T=PEEK (A) :CHAR1,3,22,CHR$(Z):CHAR1.10,2 

2."":POKE 2034, T:9YS(ADR) 

1010 Tr127:CHAR1, 25. 22, "KEINEI SPACE} AENDERUN 

= 

1020 GETKEY A$ 

1030 IF A$=CHR$ (13) THEN GOTO 1070 

1040 IF A$="{UP}" THEN G0TO 1110 

1050 IF A$="{DOWN}" THEN GOTO 1080 

1060 GOTO 1020 

1070 IF T=127 THEN 1130:ELSE POKE A,T:G0T0 1 

130 

1080 T-T-1:1F T<=127 THEN G0TO 1100:ELSE CHA 

RO.20. 22, "(SPACE22Y” 

1090 POKE 2034,T:CHAR1,28,22,"":SYStADR) :GOT 

o 1020 

1160 T=127:CHAR1, 25,22, "KEINE{ SPACE? AENDERUN 

6" :G0TO 1020 

1110 T-T+1:IF T>283 THEN T=253:ELSE CHARO,25 
„22, "(SPACEIS}Y" 

1120 POKE 2034,T:CHAR1.25,22."":SYS(ADR) :GOT 

0 1020 

1130 Z=Z+1:A=A+1:7=127:CHARO,10, 22,” ( SPACE} 


























1140 Zi=Zi+1:IF Z1=26 THEN RETURN:ELSE GOTO 
1000 
ENDE DES LISTINGS 
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<156> 


<114> 
<77> 


<64> 

<237> 
<114> 
<200> 


£237> 
<81> 

<219> 
<133> 


<186> 
625> 


<i14> 
<167> 
<202> 
(2227 
<216> 
<43> 
<101> 
<1457 
<807 
<55> 
<82> 
677 
<69> 
<193? 
<136> 
<67> 
<99> 
<229> 
<117> 
(29? 
<112> 
<91> 
<27> 
<204> 
<ı110> 
<55>7 
<29> 
<140> 
<98> 


<254> 


PROCRAMHDIE Ba 


Der Analysator 


Haben Sie nicht schon malt 
verzweifelt überlegt oder ge- 
sucht, an welcher Stalle in ei- 
nem Programm einer be- 
stimmten Variablen ein Wert 
zugewiesen wird oder wo diese 
Variable überall gebraucht 
wird? 

Haben Sie nicht schon erlebt, 
daß eine scheinbar überflüs- 
sige Programmzeile, die Sie 
guten Glaubens löschten, doch 
vom Programm benötigt 
wurde? 

Hatte Sie noch nie den 
Wunsch, sogenannte Spagatti- 
Programme zu entflechten? 
in all diesen Fällen ist das Pro- 
gramm REFERENZ eine 
wertvolle Hilfe. 

Referenz liest in Basic ge- 
schriebene Programme von 
Diskette und durchsucht sie 
nach Sprungzielen, Pro 
grammmverzweigungen und Va- 
riablen. Das Ergebnis wird in 
einer Referenzliste ausge- 
druckt. Es ist damit ein Außerst 
hilfreiches Instrument für alte, 
die selbst in Basic programmie- 
ren. Es hilft, strukturierte 
Basic-Programme zu erstellen 
und erteichtert erheblich die 
Fehlersuche. Natürlich unter- 
stützt os auch diejenigen, die 
Programme ändern oder an ih- 
ren Rechner anpassen wollen. 


Fan) Arbeitsweise 


Referenz besteht aus einem 
Basic-Teil für die Zeilenunter- 
suchung und zwei MC- 
Programmteilen für die Tabel- 
lenbsarbeitung. Die MC-Teile 
belegen den Benutzerbareich 
von $0560 - $05e0 und den 
Funktionstastenspeicher von 
$0660 - $06e0 (die Funktion- 
stasten werden nicht benötigt). 
Nach dem Programmende 
werden die Funktionstasten 
wieder richtig belegt und die 
Speichergrenze erhält ihren 
ursprünglichen Wert zurück. 
Von den folgenden Basic- 
Befshien werden die 
Sprungziele ausgewertet: 

ELSE, GO, GOSUB, GOTO IF, 
ON, RESTORE, RESUM, 
RUN, THEN, TO, TRAP. 


Der Vollständigkeit halber wird 
auch der Befehl LIST ausge- 
werlet, obwohl er in einem Pro- 
gramm normalerweise nicht 
vorkommt. 


Von den Variablen werden, um 
Speicherplatz zu sparen, nur 
die ersten beiden für den Com- 
puter relevanten Zeichen aus- 
gewartet. Natürlich werden 
auch die Typ-Bezeichnungen 
verwartet ($/%). 


Die Drucker-Routine, sie be- 
ginnt ab Zeile 550, ist bewußt 
einfach gehalten worden, da- 
mit sis an andere Drucker 
angepaßt werden kann. 


Hinweise für die 
Programmeingabe 


Die REM-Zeilen werden nicht 
angesprungen und können 
deshalb weggelassen werden. 
Bei Bedarf kann die Daten- 
Tabelle auch an eine andere 
Adresse gelegt werden. Dazu 
ist lediglich der Befehl POKE 
56,56 in Zeile 20 entsprechend 
zu ändern. 


Beisplel: 
Tabelle ab $7000 - POKE 
56,112 


Die beiden MC-Teile werden 
von einem Basic-Lader er- 
zeugt. Dieser sorgt auch für die 
automatische Speicherung auf 
Diskette, vorausgesstzt, alles 
wurde richtig eingegeben. 


Geben Sie beide Programme 
nacheinander ein, und spei- 
chern Sie sie ab. Nun den Teil 
zwei mit RUN starten. Nach 
kurzer Zeit beginnt die Floppy 
zu laufen, die MC-Files werden 
abgesaved. 





a6 Bedienung 


Starten Sie das Programm Re- 
ferenz wie gewohnt mit dem 


Befehl RUN und überschreiben 


Sie die Vorgabe "END" mit 
dem Namen des zu untersu- 
chenden Programms. Sofern 
die Liste gedruckt werden soll, 
beantworten Sie die Drucker- 
frage mit "J”. Ansonsten ge- 
nügt es, die Vorgabe "N" mit 
RETURN zu bestätigen. Wäh- 
rend des Programmlaufs wird 
die Nummer der gerade unter- 
suchten Zeile auf dem Schirm 
angezeigt. Der Vorgang kann 
jederzeit durch die Stop-Taste 
abgebrochen werden. Der 
Computar gibt dann die bis da- 
hin erstelit Liste aus. Nach der 
Listenausgabe kehrt das Pro- 
gramm zum Anfang zurück, 
und Sie können ein neues Pro- 
gramm untersuchen oder Refe- 
renz beenden. 


Die Referenzliste ist nach fol- 
genden Kriterien sortiert: 


« Sprungziele 

- Fließkommavariable 
- Integervariable 

«- Siringvariable 

- Feldvariable 


Programmname: REFE- 
RENZ 
Computertyp: 


Plus 4 


C16/116/ 


Lauffähig auf: Floppy 1551 
Besonderheiten: Hilfsmittel 
für Basic-Programmierer 


en ET EEREEETEEEREEEEEN  __ — —£ 


C-16 LISTING + CHECKSUMMEN (OC V1.0) 


10 IFPEEK(1376)< >169THENLOAD"0560 ( SPACE) {\) " 
‚8.1: ELSEIFPEEK (1760)< >96THENLOAD"0660 ( SPACE 


eA)“,8.1 <173> 
20 POKE231 ‚,PEEK(56) : POKES55 ‚0: POKES6,56:CLR:T 

RAPEO :SYSDEC ("0560") :GOT0230 «1693 
30 REM WE <33> 
40 REM * REFERENZPROGRAMM Ci16 “ <34> 
50 REM * W. BEHRENS (14.03.87) ” <63> 
60 REM WERE <63> 
70 REM ***** FEHLERBEHANDLUNG *rt#nmuna <194> 


80 IFER-30ANDEL<S60THENPRINT: PRINT"ABBRUCH": 
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RESUMES60 : ELSEIFER< >5STHEN110 


<74> 


90 IFEL=260THENPRINT" BITTE SPACEIFLOPPY{ SPATC 


EI EINSCHALTEN!" :GOSUB140 : CLOSES : RESUME 


<209> 


100 IFEL=560THENPRINT"BITTE{ SPACE} DRUCKER SP 


ACE} EINSCHALTEN?!” :GOSUB140 ; RESUME 


<168> 


110 TRAP: PRINT :PRINTERRS (ER) "{ SPACE}ERROR{ SE 


ACEYINI SPACE) "EL 


<220> 


120 CLOSE4:CLOSE9: POKES6 ,PEEK (231) :CLR:SYS62 


359:END 


130 REM #ru# UNTERROUTINEN wrmunrRrirRuKich 


<54> 
<107?2 


140 PRINT’WEITER{SPACEIMIT{ SPACE}RETURN{ SPATC. 
E}-->t SPACE)” :POKE239,0: : GETKEYX$ : PRINT" (UP}" 








CHR$ (27) "O1 UP} "CHR$ (27) "Q“ ; :RETURN 


<255> 


51 


BEN PROGRALILIE 


150 DATA 137.139,.140.141.155,164,167,213,214 

‚215,139,203.145,143 

160 GOSUB170 : IFZ=OTHENRETURN 

170 GET48,L$:GET#8 ,H$:2=256*ASC (H$) +ASC(L$) : 

RETURN 

190 2=-256*PEEK(P+1}+PEEKP) : RETURN 

190 IFMID$(2$,P,1)< >" SPACE} "THENP=INSTR(Z$, 

“‚",‚P+1) : IFP=OTHENP=L 

200 RETURN 

210 V=INSTR(Q$.MID$(Z$,P.1).1) :RETURN 

220 REM werk PROGRANM wrunwrkanrarhnihhe 

230 SCNCLR:PRINT”{RVSON SPACE9} REFERENZPROGR 

AMM{ SPACE15 RVSOFF) " :PRINT 

240 INPUT"WELCHES { SPACE} PROGRAMM SPACES)END{ 

LEFTSY" ;P$: LFLEN(P$) >16THENPRINT" {UP}; :GOTO 

240 

250 IFP$="END"THEN120 

260 OPEN8.8,8,P$+".P,R": IFDSTHENPRINTDS$ : 605 

VB140.: PRINT" ( UP}; :CLOSEB ; SOTO240 : ELSEPRINT 

270 INPUT"SOLL (SPACE) GEDRUCKT { SPACE}WERDEN{ 5 

PACE2YN{ LEFT3} " ıX$ : IFX$="3"THEND=1 :ELSEIFX$< 

3"N"THENPRINT" (UP) " ; :GOT0270 

zu PRINT: DOUNTILP=143: READP : BS=BS+CHR${P} :L 
P 

290 Q$="%$ 10123456789ABCDEFGHLIJKLMNOPORSTUUW 

XYZ"+CHRS (34) +CHR$ (131) 

300 GOSUB170 : PRINT" IN{ SPACE} ARBEIT SPACEIZEI 

LE: { DOWN)" 

310 REM *** LESE PROGRAMMZEILE *** 

320 GOSUB160 :5Y31751 : IFZTHENZ$="":L=0:5Y5175 

1: ELSEPRINT* ( SPACE} -————" :60T0560 

330 GET#8.X$:5Y91754 : IFX$< >" "THENZ$=Z$HX$:L= 

L+1:G0T0330 

340 PRINTZ" (UP) :POKE225, ASC(H$) :POKE224,ASC 

(L$) 

350 REM *** SUCHE ZIELADRESSEN *** 

360 POKE230,0:FORP-1TOL 

370 B=INSTR(B$,MID$ (Z$,P,1)) : IFB-OTHEN420 : EL 

SEIFB< L1THEN390 :ELSEIFB=1ATHEN320 

380 P=P+1:1FP= >LORMID$(Z$.P,1)=":"THENA3O:EL 

SEIFINSTR(B$ .MID$ (Z$.P.1)) «OTHEN380 

390 V=VAL(MID$(Z$.P+1)) IFVTHENA00 ;ELSEIFB=8 

ORB-11THEN380 : ELSE420 

400 ZH=-INT(V/256) :POKE223, ZH: ZL-V-256*ZH: POK 

E222 ,2L:SYSDEC ("0580") : IFBC 1L3THEN420 

A10 P=P+l: IFP=>LORMIDS (Z$,P,1)=": "THEN430:EL 

SEIFMID$ (Z$,P,1)< >", "THENA10:ELSE 390 

420 GOSUBL9O 

430 NEXT 

440 REM *** SUCHE VARIABLE *#%* 

450 POKE230 ‚128: FORP=1TOL 

460 GOSUB210: IFV< LATHENS40 : ELSEIFV=A1THENGOS 

UB190::G0T0540 : ELSEIFV<AOTHENABO 

470 P=INSTR(Z$,CHR$ (34) ‚P+1)+1:IFP>1THEN 460 

‚ELSEP=L:GOTO0540 

480 V$=-MID$(Z$,P,1):P=P+1:60SUB210: IFV<AORV> 

SITHENWS=" ( SPACE} " :ELSEWS=MID$ (24, P,1) 

490 IFV>3ANDV<ADTHENP=P+1 :GOSUB210 :GOTO490 

500 IFV=2THENW$S=CHRS (ASC {WS} +160) :ELSEIFV=-IT 

HENW$=CHRS$ (ASC (W$) +80) :ELSES2O 

510 P-P+1:G0SUB210 

520 IFV=3THENVS=CHR$ (ASC (V$) +80) 

530 POKE223,ASC (V$) :POKE222.ASC (WE) :SYSDECK" 

0580") : IFV=40THENP=P-1 

540 NEXT:GOTO320 

550 REM *** DRUCKEN *** 

560 PRINT: IFDTHENOPEN4 ‚4: CMD4 : PRINT"PROGRAMM 

{ SPACE) "P$ :PRINT"REFERENZLISTE" 

570 PRINT: PRINT"ZIEL/SYMBOLt SPACEZ}REFERENZE 

N" ;Pe256*PEEK(56) : PRINT 

580 P=P+2:G60SUB180 : IFZ=65535THEN600 ; ELSEPRIN 

TUSINGYEHHEHLSPACEN” :Z; 











590 P=P+2:GOSUB180 : IFZ=65535THENPRINT:GOTOSB, 


0 :ELSEPRINTUSING" ( SPACE3IHHRHR" 2; :GOTO 590 

600 PRINT 

610 P=P+2:V=PEEK{P+1) : IFV=255THEN660 : ELSEIFV 
SIOTHENV=V-B0: V$e" (":ELSEVS="N . 





620 W=PEEK(P) : IFW>170THENW-W-160:25="3" ELSE 
IFWIIOTHENW=W-80.: 2$="%" : ELSEZE="" <213> 
630 IFW>32THENW$=CHRS$ (W) :ELSEWE="" <11> 
640 PRINTUSING" ( SPACE2} HR SPACEZ} " SCHRE (VI 
+W$+Z$+V$; <149> 
650 P=P+2:GOSUB180 : IFZ=65535THENPRINT :GOT061 

0 :ELSEPRINTUSING” { SPACEFWHHHRH" :Z; :GOTO 650 <184> 











































1207 
<174> 


<212> 
<232> 


<234> | 660 PRINT: PRINTUSING"ZAHL{ SPACE} DER { SPACEIBY 
<B&> TES: { SPACE) 43344" ; 256% PEEK (209) +PEEK (208) <28> 


670 PRINTUSING"ZAHL{SPACE}DER{ SPACE} SPRUNGZI 

ELE: { SPACEY4HHHHE”" ; 256 YPEEK (211) +PEEK (210) <1587 
680 PRINTUSING"ZAHL { SPACE}DER{ SPACE} SYMBOLE: 

t{ SPACES) 44H" ; 256*PEEK (213) +PEEK (212) <121> 
690 PRINTUSING"ZAHLI SPACE} DER SPACE} REFERENZ 

EN: { SPACEZ} 4444"; 256 *PEEK (215) +PEEK (214) <10> 
700 PRINT: IFDTHENPRINT#4 <187> 
710 CLOSE4:CLOSEB :CLR:GOSUB140:G0TO 230 <159> 
ENDE DES LISTINGS 


<159> 
<194> 


<154> 





<222> 
<126? 


<94> 
<6> 

cC-16 LISTING + CHECKSUMMEN (0C Vi.0) 
<897> 

10 PRINT"{CLEAR DOWN SPACE}BASIC-LADER (SPACE 
<208> | YFUER{SPACEIDIE( SPACE)MASCHINENTEILE( SPACES} 

DES ( SPACE} REFERENZPROGRAMMS , { DOWN} ” <211> 
<72> | 20 T=1376:2=200 :60SUB100: IFSTHENBO <217> 
<185> | 30 T=1632:Z=300 : GOSUB100: IFSTHEN8D «205% 

40 POKET,96:T=1319:POKET,13:POKET+1.13:POKET 
«37» | +2.13:POKET+3,88 : POKET+4,13: POKE239,5 <151> 

50 PRINT"MONTTOR1 DOWNS} " :PRINT"S"CHR$ {34} "05 
<59> | 804 SPACE} (\) "CHR$ (34) " ‚8,0560, O5EOt DOWNZ}" <«79) 

60 PRINT"S"CHR$ (34) "06604 SPACE} {\} "CHR$ (34) " 
<186> | „8,0660, 06E1" :FORI=1T012; PRINT" {UR}”; NEXT <31> 
<160> | 70 END <198> 
<194> | 80 PRINT: PRINT" (SPACEYDATAFEHLER {SPACEYIN{SE 

ACHZEILEYZ:ENDD — <167> 
<118> | 100 FORZ=ZTOZ+705STEP10 <106> 

110 : FORT-TIOT+15 <81> 
<248> | 120 : READD ; POKET,D:8*S+D <223)> 

130 : NEXT <192> 
<178> | 345 : READD: IFD< >STHEN160 <200> 

150 : 3=0:NEXT <122> 
<1803 | 160 RETURN <46> 

200 DATA 169.0,162,9,149,205,202.16,251,169, 
<66> | 2.133,218,165.56,133,2042 <20> 
<255> | 210 DATA 217.133,219.133,221.160,6,132,220,1 
<49> | 38.145,216,136,16,251.96,2439 <34> 
<176> | 226 DATA 162.0,164,56.36.230.16,4.166, 218,16 
<252> | 4,219,134.216.132,217,21394 <24> 

230 DATA 162,216.32,197,5,162,222,32,209,5,2 
<148) | 40,18,144.5,32,96.1777 <216> 

240 DATA 6,240,299,32,115,6,32,115,6.162,222 
<207> | ‚32.186,6,162.216,1777 <42> 

550 DATA 32,197,5.162,224,32,209,5,240,10,17 
<141> 1] 6.242.32.115,6,162,1849 <124> 
c78> 1 260 DATA 224,32,186,6,96,24,181,0,105,2,149. 

0,144.2,246,1,1398 <110> 
<1a4> | 270 DATA 96,56.160,1,.181,1,241,216.208,.5,136 
<160> 1] .181.0,241,216,96,2035 <201> 
<103> | 300. DATA 162,216,32.197,5,160,.1,169.255,209, 

216.208.245,136.209,216,2636 <66> 
<255> | 310 DATA 208,.240,96,164,221,132,229,166, 220, 
<149> 1 134,228,208,1,136,132,227,2742 <112> 
<241>| 320 DATA 202,202,134,226,160,1.177.226,145,2 

28,136.16,249.165,217.197,2681 “2213 
<1236> | 330 DATA 229,144,6,165,216,197,228.240,18,16 

2.2.181.226.208,2.214, 2438 <58> 
<117> | 340 DATA 227,214,226.214,226,202,202,16,242, 

48 ,217.162,220,32,197,5.2650 <179> 
<196> | 350 DATA 36,230,48,5.162,.218,32,197.5,96,.160 

‚0,181,0,145.216.1731 <48> 
<161> | 360 DATA 200,181,1.145,216,136,224.222,208,6 
<243> | ‚36,230,48,2.202.202,2259 <245> 

370 DATA 246,246,208.2,246,247,96,32,218,6.2 
<178> | 30.208,208,2,230,209,2634 <12> 
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LESERECKE 





Floppies 


Vor kurzem habe ich einen 
Commodore Plus 4 günstig er- 
halten. Da ich mit diesem 
Computer ein kleines System 
aufbauen möchte, habe ich 
dazu folgende Fragen: 

1. Gibt es noch Diskettensta- 
tionen für diesen Computer im 
Handel und werden dazu 
Anschlußadapter benötigt? 

2. Leider besitze ich kein 
Handbuch, wie kann ich zu ei- 
nem gelangen? 

9. Istes möglich, die "Compute 
mit”-Sonderhefte im Abo zu 
beziehen”? 

Herbert Khueny 


Die Red, 

Zu 1: Diskettenstationen sind nach 
wie vor zu bekommen. Wir wür- 
den Ihnen eine des Typs 1551 oder 
1541 empfehlen, dies sind die 
WStandard”-Geräte. 

Zu 2: Das mit dem Handbuch ist 
so eine Sache, versuchen Sie's mal 
bei der Firma VOBIS (auch wegen 
der Floppy). 

Zu 3: Ein Abo für die Sonderheft 
gibt es nicht. 


Probleme mit 
Cross-Liner 


Da mir telefonisch niemand 
helfen konnte, hier nochmal 
mein Problem: 

Ich habe das Listing zu Cross- 
Liner eingegeben, nun komme 
ich aber nicht weiter, weil der 
Computer in Zeile 1620 einen 
"TYPE MISMATCH ERROR” 
anzeigt - und das, obwohl ich 
die Zeile genau wie in Heft 5/88 
abgebildet eingegeben habe. 
Manuela Emele 


Die Red, 


Ein Fehler muß nicht unbedingt 
dort sein, wo er angezeigt wird, In 
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Ihrem Fall wird wahrscheinlich das 
gleiche Problem auftreten. Untersu 
chen Sie möglichst genau das ge- 
samte Programm, da die Zeile 1620 
vermutlich in Ordnung ist, 


Checksummer 


ich habe Ihre MC 
Eingaberoutine OVM 1.0, die 
Sie in Ihren Zeitschriften abge- 
druckt haben, eingegeben und 
gespeichert. Wenn ich nun das 
Programm starte, bekomme 
ich immer einen "SYNTAX 
ERROR” in Zeile 650. Ich habe 
mehrmals nach dem Fehler 
gesucht, komme aber zu kei- 
nem Ergebnis. Ich besitze ei- 
nen Plus 4 und wäre Ihnen sehr 
dankbar, wenn Sie mir helfen 
könnten, 

Michael Hücker 


Die Red. 

Eigentlich sollte es ja unmöglich 
sein, daß in dieser Zeile ein 
Syntax-Error auftritt, handelt es 
sich doch um eine PRINT- 
Anweisung. Die Zeile ist, wie der 
gesamte Checksummer, fehlerfrei 
abgedruckt worden. Das Beste wird 
sein, Sie geben die gesamıe Zeile 
nochmal neu ein. 


Anregungen 


Da ich schon seit der zweiten 
Ausgabe Ihres Sonderheftss 
diese lese und ich noch ein 
paar Programme vermisse, 
würde ich mich freuen, wenn 
Sie meine Programmvor- 
schläge weiterleiten könnten 
(Anmerkung der Red.: was 
hiermit geschieht). Als erstes 
vermisse ich einen Floppy- 
Speeder für die 1551, der zum 
Laden und Speichern 
gleichermaßen geeignet ist. 

Im Zusammenhang mit dem 


Spesder könnte man eventuell 
noch ein geeignstes Kopiear- 
programm verfassen. Auch ein 
Backup-Programm für die 1581 
würde mich, und bestimmt 
auch andere Lesar, interessie- 
ren. Zum Schluß hätte ich noch 
eine Frage an Sie; Wie kann 
man die Disketten der Floppy 
1591 {am Plus 4) beidseitig 
nutzen? Übrigands gefällt mir 
Ihre Zeitschrift sehr gut, aber 
es müssten noch mehr 
Hardwars-Tests veröffentlicht 
werden. 

Thomas Kreis 


Die Red, 

Wer in der Lage ist, die genannten 
Programme zu erstellen: Her da 
mit! Zu Ihrer Frage: Die Disketten 
werden sowieso beidseitig genutzt, 
woraus sich auch die hobe Speicher- 
kapazität ergibt. 










Aadvark 































Auf vielfachen Leserwunsch 
jetzt neu in Compute-mit: 


DIE POKE-ECKE 
were _T wma Tran T mm | 





Air Wolt MO:)2038:35in39 Chopper still 
Arkanoid (S.B.) NO:D 199C Unendl, Leben 
Bandits at Zero POKE 11100,96 » dio. » 
Barks NO.D 1172 «dio.» 

Big Mac MO:D 3192 « dio. - 
Blaze MO:D 2CE8 - iO. « 
Bouble Trouble MO;jr1B? EAEA EA - dio. » 

= dio. » POKE 8641,255 “ Granaten (255) 
Dangerzonst MO:D 1791 -di0.- 
Dirty Den POKE 7694,255 «dio, » 
Finger's Malone MO:D 2BD9 » dio. - 
host 'n Goblins MO:POCF EA EA Zombie behind 
«di0, » MO:)1028 A9 FF Unendt. Leben 
«dio, « MO-13DA A9 01 Fast firing 


Software-Ver- 


öffentlichungen 
In einer Ihrer Zeitschriften habe 
ich gelesen, daß Sie selbstge- 
schriebene Software, natürlich 
taugliche, veröffentlichen. Da 
diese Zeitschrift im Januar '87 
herausgegeben wurde, weiß 
ich nicht, ob dieses Angebot 
noch gilt. Bitte informieren Sie 
mich darüber, denn ich würde 
Ihnen gern einige meiner eige- 
nen Programme zusenden. 
Kreso Tusek 


Die Red. 

Zunächst mal: Das Angebot gilt 
nach wie vor! Leider haben Sie uns 
nicht geschrieben, für welchen 
Rechnertyp Ihre Programme sind. 
Wir nehmen nur Software an, die 
aufdem C16/116/Plus # lauffähig 
ist. 


MO:D 3FDB Unandl, Leben 
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BEN LESEIREGEE 





- we - 
Gullwing Falcon 
Gunslinger 
Invaders 
„lailbreak 


Joey 
Kikstart 


Monkey Magic 
Monty on The run 
Natrun 2000 

Out one a Limb 
P.O.D. 

Pacmania 


Teyeoon Tex 
The Sky 1942 
Treasure Island 
Tutti Frutti 
Varmit 
W'sohan Monty 


MO:2AFB ER EA EA 


MO:176G AI X 
MOJ1F34 EA EA 
MO:D 287B 
POKE 12665,x 
FOKE 8517,234 
MO:2EEE:35in00 
POKE 5760,234 
POKE 10403,294 
MO:J2BAC 60 
MO:)20DA EA EA 
MO:D 1176 
POKE 10829,255 
POKE 6624,234 
POKE 7540,x 
MO:D 2002 
MO:D 198F 
MO:D 1380 


MO:D 1A15 
POKE 8717,255 
NO 101E 


MO:D 2091 
MO:}1827 FF 

MO:D 2609 

MO:D 1162 
FOKE 10534,x 


MOD 1F39 
MO:D 2E29 





x = Speediü-6 
keine Loecher 
Unendl. Leben 
X = Leben 
Unendi. Leben 
» dio. - 
“dt0, = 
+ dio. - 
keing Hinder, 
High Speodl 
din. - 
». dio.» 
-din.- 
x » Leban 
Unendi. Lehen 
- dio. - 





POKES VON A-Z 


A 
A-07 
Allen Attack 


Apotto Mission 
Arena 3000 


POKE'S 
25355,234 
25356,234 
25357,234 


6108,155 
6144,165 


12961,255 
4794,0 


Atlantis 


Auriga 


Austro Plumber 


B 
Baby Berks 


11580,234 
11581,234 
14988,234 
14989,234 

8115,80 


5435,234 


9364,0 


oder 
6680,60 
6750,234 
Energie 
Bandits 11000,226 
oder 
15455,234 
15456,234 
Fuel 
Berks Ill 9846,0 
Blagger 13066,48 
Bounder Game 5268,294 
5267,234 
Boukder dash Zeile 620: 
EC=ECO 
Booty 16 9013,96 
oder 
9017,48 
9018,0 
Blaza 8787,225 
8789,220 
BMX RACERS 9055,220 
c 
Cavs Fighter 4922,172 
Canos 5277,48 
5283,48 
Climb Fighter 11737,48 
Commander 10471,173 
9171,173 
Bonus 
Corman 4348,226 
Cuthbert in the Space 4510,255 
oder 
7408,234 
7409,234 
7410,76 
7411,248 
7412,28 
Cuthbert In the Tombs of 
Doom 7838,255 
7150,80 
ohne Feind 
Cyborg 10692,220 
Crazy Golf 4174,201 
Creature Craw 10676,173 


Dark Tower 8140,12 


8139,234 
8140,234 


Death race 8860,76 
8861,163 
8362,94 
oder 
4369,57 
4370,57 


14433,226 
oder 
4512,234 
4513,234 
5889,226 
9506,0 
5938,173 
7370, 
8251,0 
9224,0 
4206,173 
ar 


13054, x 
1 3055,4 


Defence 


Diabolo 
Dlagon 
Diamond Mine 1 


Diamond Mine 2 
Dark's Dilemma 


8936,48 
8337,9 


oder 
8993,234 
F POKE'S 


4667,48 
oder 


Enegma 


Fantatron 


Fortress 12142,165 
ode 


r 
10928,165 


elaczirdtlıte 


ikolleh @ Tr, 
nächsten Heft 
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Der Checksummer für MC- Programme: 


Maschinenprogramme gefragt ? 


Da wir verstärkt Maschinenpro- 
gramme abgedrucken, benötigen 
Sie ein Verfahren, um auch diese 
Programme mit einer Check- 
summe zu versehen. Das Aus- 
druckverfahren von Basic-Listings 
wird nicht verändert. Hier wird 
auch weiterhin der erprobte 
Checksummer OV 20 seine 
Dienste tun. 


Der Checksummer OVM 1.0 


Wie schon erwähnt, dient der 
Checksummer ausschließlich zum 
Eingeben von Maschinenpro- 
grammen. Diese konnten zwar 
bisher relativ kompakt als soge- 
nanntes HEXDUMP ausgegeben 
werden, ließen jedoch keine Mög- 
lichkeit für eine oder mehrere 
Prüfsummen offen. 

Dies ist bei diesem Checksum- 
mer völlig anders. Die Bedienung 
und Arbeitsweise dieser Version 
ist weitgehend mit dem eingebau- 
ten Maschinensprachemonitor 
TEDMON identisch. Die einzige 
Ausnahme ist, daß nach der Ein- 
gabe einer HEXZEILE keine 
ASCH-Zeichen, sondern eine soge- 
nannte Checksumme bzw. Prüf- 
ziffer ausgegeben wird, Achter 
man beim Eingeben der Zeilen 
darauf, daß Diese Prüfziffern mit 
den abgedruckten Prüfziffern 
identisch sind, so kann praktisch 
kein Tippfehler mehr übersehen 
werden. 


Hinweise zum Einsatz des 
Checksummers 


Um den Checksummer OVM 1.0 
einzugeben, sollten Sie unbedingt 
den Basic-Checksummer OV 2.0 
verwenden, Vor dem Start, durch 
den Befehl RUN, sollte das Pro- 
gramm auf jeden Fall mit 
SAVE”’OVM1.0” auf Kassette oder 
Diskette abgespeichert werden, da 
sich das Programm unter Um- 
ständen selbst zerstören kann. 


Wer sich die Arbeit des Eingebens 
völligersparen möchte, kann den 
Checksummer auch unter den 
folgenden Bestellnummern bezie- 
hen: 
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OVM 1,0 K Kassette 15 DM 
OVM 1.0D Diskette 20DM 


Nachdem man den Checksum- 
mer eingegeben und mit RUN ge- 
startet hat, verlangt dieser die 
Eingabe einer Adresse, Diese 
Adresse gibt an, ab welcher Spei- 
cherstelle der Checksummer im 
RAM abgelegt werden soll. Diese 
Adresse muß flexibel gestaltet 
werden, da sich sonst einzuge- 
bende Maschinenprogramme 
eventuell mit dem Checksummer 
überschneiden könnten, Der 
zweite Vorteil ist, daß sich ein 
verschiebbarer Checksummer 
gleichermaßen für den C16 so- 
wie den Plus 4 eigner. Zu beach- 
ten ist hier nur, daß sich die 
eingegebene Adresse in einem zu- 
lässigen Bereich befindet; Beim 
C16 von 4097 bis maximal 12680 
Beim Plus 4 von 4097 bis maxı- 
mal 32060. 


Welche Adresse man schließlich 
wählt, bleibt jedem selbst überlas- 
sen. Wichtig ist nur, daß der Be- 
reich 688 Bytes über der Adresse 
nicht vom einzugebenden Pro- 
gramm benötigt wird. Belegt 
beispielsweise das einzugebende 
Programm den Bereich von 
-1000--2000 (4096-8192), so 
könnte man für den Checksum- 
mer die Adresse 9000 wählen. Um 
Ihnen am Anfang die Wahl des 
Speicherbereiches erwas zu er- 
leichtern, werden wir auch ent- 


sprechende Tips in den 
Programmbeschreibungen unter- 
bringen, 


Nachdem $ie eine Startadresse 
eingegeben und die RETURN- 
Taste betätigt haben, wird der 
Bildschirm mit einem undefinier- 
baren Zeichengewirr beschrieben. 
Keine Angst, dies ist normal und 
dient zum Umrechnen einiger 
Sprungbefehle. Kurz danach er- 
scheint die eingegeben Starta- 
dresse sowie die Endadresse des 
Checksummers. Prüfen Sie jerzt 
noch einmal genau, ob sich diese 
Adressen nicht mit dem einzuge- 
benden MC-.Programm über- 
schneiden. 


Ist dies nicht der Falt. so kann der 


Checksummer mit dem angezeig- 
ten SYS ... Befehl aktiviert wer- 
den. Ein ab Adresse 10000 
abgelegter Checksummer wird 
beispielsweise auch mit SYS 10000 
aktiviert, 


Nachdem sich der Checksummer 
mit dem üblichen COPY-RIGHT- 
Vermerk meldet, befinden Sie sich 
im MC-Eingabemodus. Dies be- 
deutet, daß jerzt die Basic-Befehle 
nicht mehr ausgeführt werden 
können. Statt dessen stehen dem 
Anwender nun acht neue Befehle 
zur Verfügung. Die Befehle beste- 
hen jetzt nur noch aus einem ein- 
zigen Buchstaben und arbeiten 
ähnlich wie die im eingebauten 


Maschinensprachmonitor 
TEDMON, 

M aaaa,eeee 

Dies ist der sogenannte 


Memory-Befehl. Er erlaubt das 
Auflisten eines bestimmten Spei- 
cherbereichs als HEXDUMP mit 
einer Checksumme pro Zeile, Die 
Parameter aaas und eeee siehen 
jeweils für Anfangs- und Enda- 
dresse des auszugebenden Be- 
reichs. 


aaa bb bb... 
Dieses ist der eigentliche 
Maschinencode-Eingabebefehl. 


Als Parameter kann die Eingabe- 
adresse sowie eine Folge von By- 
tes (maximal 8) übergeben 
werden. Die Arbeitsweise ist mir 
dem herkömmlichen Monitor 
völlig identisch und kann im 
Handbuch zum C16 genauer stu- 
diert werden. Der einzige Unter- 
schied zum $zandard-TEDMON- 
Befehl besteht. darin, daß nach dem 
Betätigen der RETURN-Taste am 
Zeilenende eine Checksumme er- 
scheint. Um die Checksumme 
besser von den Bytes der Eingabe 
abzuheben, ist diese durch zwei 
Doppelpunkte von letzteren ab- 
gesondert. Da dieser Befehl auto- 
matisch beim M-Befehl den Zeilen 
vorangestellt wird, lassen sich 
Speicherbereiche einfach mittels 
der Cursortasten verändern oder 
verbessern. Wichtig ist hier aller- 
dings, jede veränderte Zeile mir 
der RETURN-Taste zu quitieren, 


en diesen Befehl wird die 
Bildschirmausgabe auf einen an- 
geschlossenen Drucker umgelei- 
ter. Wenn Sie anschließend den 
M-Befehl benutzen, können Sie 
beliebige Speicherbereiche als 
HEXDUMP mit Prüfsummen auf 
Ihrem Drucker ausgeben lassen. 


B 

Dieser Befehl stellt das Gegen- 
stück zum P-Befehl dar. Die Aus- 
gabe wird wieder auf den 
Bildschirm umgeleitet. 


L’Name"g 

Dies ist der LOAD-Befehl zum 
Nachladen von Maschinenpro- 
grammen, Die Syntax und Ar- 
beitsweise entspricht genau dem 
TEDMON-Befehl und kann so- 
mit im Handbuch nachgelesen 


werden, 


S”’Name”,g.aada,eeee 

Dies ist der Save-Befehl zum Spei- 
chern von Maschinenprogram- 
men, Die Syntax und Arbeits- 
weise entspricht genau dem 
TEDMON-Befehl und kann so- 
mit im Handbuch nachgelesen 
werden, 


V’Name”g 

Dies ist der VERIFY-Befehl zum 
Prüfen von Maschinenprogram- 
men. Die Symax und Ar- 
beitsweise entspricht genau dem 
TEDMON-Befehl und kann so- 
mit im Handbuch nachgelesen 
werden. 


X 

Über diesen Befehl verlassen Sie 
den Eingabemonitor und gelan- 
gen wieder in den Basic-Interpreter 
zurück, 


Achtung ! 

Nach der Ausführung der Befehle 
LS und V (LOAD, SAVE VERI- 
FY), befinden Sie sich nicht mehr 
im Checksummer, sondern im 
eingebauten Systemmonitor TED- 
MON, Um den Checksummer 
wieder zu aktivieren, müssen Sie 
diesen von TEDMON mit Gxxxx 
(xxxx steht für Startadresse in 
HEX) oder vom Basic aus, wieder 
mit SYS ... aktivieren, 


So, nun viel Glück beim Einge- 
ben von Maschinenprogram- 
men. Übrigens, wernoch nicht weiterhin den eingebauten 
ganz mit der Bedienung unse- TEDMON benutzen. Wir hoffen 


res Systems zurechtkommt, 
kann selbstverständlich auch 


jedoch, daß unser System OVM 
1.0 Ihren Zuspruch finden und die 
lästige Fehlersuche zumindest 
stark reduzieren wird, Schreiben 


Sie uns doch einmal, was Sie von 
unseren Eingabehilfen für gut 
oder für verbesserungswürdig 
halten! Frank Brall 


418 DATA238,32,12,239,32,216,251,13,64,73,76 
































„68,83,67,72,73,82,77 <«1r1> 
422 DATA32,65,75,84,73,86,13,2,55,176,219, 14 
E-16 LISTING + EHECKSUMMEN (DE V1.8) 7,0,133,241,133,242,141 <10> 
438 DATA244,7,32,63,251 ,240,59,201,32,240,24 
10 REM HEHE z2Al> 7,201,32,240,44,201,14,244 <x107> 
20 REM MC--EINGABERUUTINE «232? 448 DATA42,201,49,144,43,281471,176,39,201,5 
Su REM avm 1.0 <218> | 8,144,64,2981,65,144,31,233 <98> 
48 REM EC) FRANK BRALL <194> | a5@ DATAB,233,47,10,18,18,19,162,4,10,38,241 
SB REM Hakan 237 ‚38,242,202,208,248,238 <251} 
48 REM <203> Add DATA244,7,32,43,251,208,284,173,244,7,24 
70 FÜR I=1634 TO 1702:READ PıPOKE I,P=sNEXT I <248> 76,104,104,32,11,251,5& «53> 
88 REM ##* VERSCHIEBE ROUTINE ## <258> | 470 DATA176,172,234,32,58,251,1649,62,32,21B, 
90 DATAS2,222,157,132,216,133,217,32,222,157 255,32,251,250,16@,0,32,15@ <248> 
‚140,134,3,141,135,3,32,222 <143> | Ana DATAZ27,32,5,251,2090,172,8,144,245,32,21 
148 DATA1SZ,132,218,133,219,140,2,277,216,14 6,251 ,58,59,8,169,@,141 <105> 
5,218,24,155,216,195,1,133,21& . 6547 470 DATAL69,18,160,8,32,15@,207,141,171 30,1 
11a DATALAS,217,105,0,133,217224,169,218, 195 48,179,18,174,170,18,252,24 <139> 
„1,133,218,165,217,185,8,133 <156> | soa DATAI7S,171,18,167,169,19,141,167,18,202 
128 DATA219,165,217,2025,135,3,2293,219,165,24 ‚249,243,200,192,9,194,225,24 «137> 
6,205,134,3,259,212,94,B,@ <198> | Sım DATA173,169,18,181,161,24,101,162,162,0, 
130 DATAB <1ml> | 32,5,251,76,62,77,88,80 <221> 
14a REM ### MC-CODE ### <199> | 520 DRTAS6,76,93,86,174,16,289,16,123,17,163 
159 DATA234,167,251,141,21,255,169,2,141,25, ‚17,298,17,0,0,8,0 g206> 
255,32,214,251,197,17,27,144 747 STB DATAD,@,2,255 2543 
158 DATAZ2,32,67,49,54,32,77,67,45467,72,69% 548 REM <173> 
67.755,83 ,88,77,77 ; <Z15? | Ssg REM ##* ABSOLUTE ADRESSEN Fu <2B> 
178 DATA69,02,32,79,86,77,32,49,48,13,13,32, 540 REM <1973> 
32,32,32,32,40,67 <B7? 572 DATA 4204 ,4234 ,4237 ,4248,4243 <250> 
1Bd DATA41,32,70,82,45,78,75,32,66,82,65,76, SB DATA 4245 ,42497,4278,4299,3509 <B> 
76,32,49,57,56,53 x255> | 590 DATA 4314,4354,4361,4379,4408 <B6> 
190 DATA17,0,52,58,251,162,B,134,243,32,207, &0D DATA 4424 ,9429 ,4462,4467 ,4707 <215> 
255,157,0,2,252,201,15 <216> | „ıa nATA 4717,4720,4723,4729,4731 <47> 
200 DATA208,245,202,134,244,32,63,251 290,25 620 DATA 4734,4796,4767 ,4769 ,4771 <180> 
8,201 ,32,2490,247,162,7,221,151 <52> &5@ DATA 4773,4775,08 «327 
219 DATAIB,240,7,202,16,248,32,11,251,56,176 640 PRINT" (CLEAR BOHN2 SPACESIMASCHINENCODET 
‚210,254 ,224 ,5,240,27,224 <875 | SPACEICHECKSUMMER (SPACEIOVMISPACEI IR" <47> 
220 DATA5,240,25,224,7,248,21,138,18,17@,189 650 PRINT"(DOHWN SPACET) IC) TSPÄCEIFRANK SPACE 
‚468,18,141,175,18,189,15%7 <70> IBRALLCSPACEI 1987 DOUN)J" <30> 
230 DATAIG,141,172,18,32,242,17,108,172,10,1 640 PRINT"BITTETSPALEIGEBENTSPACEISIETSPACEI 
41,91,5,167,241 141,21 ,255 <124> | NUN<SPACEIDIELSPACEHADRESSELSPAGEIEIN," <136> 
248 DATA149,238,141,25,255,175,91,5,76,118,2 &78 PRINT"ADLSPACE)DERLSPACEIDERLSPACEICHECK 
46,176,19,32,91,251,150,8 “50? | SUMMERTSPACEI IMLSPACEISPEICHER" <51> 
250 DATA32,242,17,176,9, 145,241 „145,141 ‚za, 688 PRINT"ABGELEGTTSPACEIWERDENTSP ACEISDLLES. 
192,9,144,242,32,216,251,27 +173> PACEI !" <22B> 
248 DATA79,145,0,32,67,18,56,175,166,254,8,1 598 PRINT® (DOUNFACHTUNGTSPACEN ! ! I CDDUNY“ 1973 
65,161,141,174,18,165,162 <1oM> | 7a0 PRINT"BEIMLSPALCEILIHCSPACE}I ZWISCHENISPAG 
270 DATA141,175,18,32,216,251,13,32,77,67,45 E34BFTLSPACEIUNDLSPACEN126B@TSPACEI !" <64> 
,76,73,03,84,75,78,71 <162> | 718 PRINT"BEIMISPAGEIPLUSATSPACEIZWISCHENISE 
220 DATA32,77,73,84,32,67,72,697,67,75,03,85, ACEI4097 {SPACEI UNDCSPACESZWARTSPACEI ! CDOHNF 
77,77,69,78,32,79 «232> | er <215> 
230 DATABS,77,49,08,13,8,173,174,18, 155,161, 728 INPUT "ADRESSE{SPACEY"TAD <11l> 
173,175,18,133,162,428,17& <58> 738 IF AD<4897 THEN RUN <47> 
308 DATA14,564,174,3,56,175,185,32,91,251,32, 749 IF AD>328&0 THEN RUN x219> 
242,17,144,6,169, 11,155 <297> 75Q@ D=AD-4977:REM DIFFERENZ <171> 
zı0 DATA241,209,14,32,100,251,74,102,241,74, 760 PRINT" ICLEARIBITTELSPACEHEINENESPACHEFAUG 
102,241,74,192,241,133,242,32 <258? | ENBLICKISPACEFWARTENTSPACEN!® <167> 
322 DATA225,255,249,13,32,67,18,169,8,32,150 770 FOR Ie 3152 TD 31524697 ıREAD F:POKE I,P 
+251,32,114,251,174,238,8 <70> ıNEXT I <203> 
330 DATA1645,161,141,174,10,165,152,141,175,1 780 READ UA :IF UA = 8 THEN 858 <129> 
8,32,216,251,13,32,69,7B,68 <65> 799 UA=UA-745 : <173> 
340 DATA69,32,68,69,93,32,76,73,93,84,753,78, B0D W=tPEER (UA+1)#256) +PEEK (UA) <104> 
71,83,32,192,79,8& <118> ) gıB W=eW+D <233> 
358 DATA77,41,15,8,1735,174,18,155,161,173,17 37a FOKE UA+1,INT (01/256) <139> 
5,18,153,162,40,56,176,152 <138? | 930 POKE UA,W-(INT(W/254) #254) <13> 
360 DATN32,216,251,13,77,67245,67,72,69,67,7 840 GOTO 798 <17@> 
5,93,85,77,77,69,82 <159> | 950 PRINT" CRONE SPACESFPROGRAMM{SAPACEIIST{SP 
370 DATA32,65,85,83,32,33,0,167,241,141,21,2 ACEHEINGELESENLSPACEI! " <135> 
55,1697,258,141,25,255,104 x135> | Sad PRINT" CDOHNLIISTARTLSPACEIMITLSPACEISYE" 
398 DATA194,76,3,128,234,32,21&,231,13,40,42 AD <245> 
‚85,67,75,67,B2,352,65 <119> | 970 FRINT"STARTISPACEIBEIS "AD" LSAACEZIENDELE. 
39Q DATA7S,84,73,86,13,8,169,1,162,4,168,0,3 PACE}I BEIM "AD+6B7 <164> 
2,186,255,169,0,32 <19&> | gen 5Y5 1630,3152,3152+488,AD <a7>. 
400 DATA1G9,255,32,192,255,162,1,52,201,255, E72 END <253> 
56,176,158,234,169,1,32,73 <2247 ENDE DES LISTINGS 
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der Beschreibung des Prozessors fort 


Wir kommen jetzt zur Pro- 
grammierung des Prozessors. 
Der C16 hat einen Prozessor 
des Typs 7501, der dieselben 
Befehle kennt, wie der 6510 
des C64, der 6502 des VC20 
und der 8502 des C128. Diese 
Prozessoren haben 6 soge- 
nannte Register, die den Spei- 
cher des Prozessors darstellen. 
Obwohl dieser Speicher nur 
aus 7 Bytes besteht, ist er 
enorm wichtig. Nehmen wir an, 
der Prozessor wilt einen Wort 
aus dem Speicher lesen und 
an eine andere Stelle zurück- 
schreiben. Hätte er kainen er 
genen Speicher, so hätte er so- 
fort nach dem Lesen den Wert 
schon wieder "vergessen” und 
könnte ihn nicht zurückschrei- 
ben. Die 6 Register sind im 
einzelnen: 


1. Der Programm-Gounter 
(PC). Wenn der Prozessor ein 
Programm abarbeitet, liest er 
Byte für Byte aus dem Spei- 
cher. Damit er weiß, an welcher 
Stelle im Adreßbereich ar sich 
gerade befindet, schreibt er 
diese Adresse nach jedem Be- 
fehl in den PC. Der PC umfaßt 
als einziges Register 2 Bytes. 


2. Der Akkumulator. Dieses 
Register ist das Hauptrechen- 
register des Prozessors, ihm 
kann man frei Werte von 0 bis 
255 zuweisen. 


3.+4.X- und Y-Register. Diese 


Register nennt man auch In- 
dexregister. Sie sind dem Akku 
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ähnlich, nur benutzt man sie für 
andere Aufgaben. 


5. Der Stack-Pointer (SP). Er 
wird bei dem Äquivalent von 
GOSUB in Maschinensprache 
gebraucht. 


6. Das Statusregister (SR). Es 
hat mehrere Aufgaben. Es 
zeigt z.B. durch einzelne Bits 
(in diesem Zusammenhang 
auch "tiags” genannt) den 
Ausgang von Rechnungen und 
anderer Öperationen an. 
Außerdem besitzt es Regelauf- 
gaben. 

Wenn wir den Maschinen- 
sprachmonitor TEDMON mit 
MONITOR aufrufen, zeigt er 
uns den Inhalt von diesen Re- 
gistern, mitihren Abkürzungen, 
an. Ein Maschinensprachpro- 
gramm (MC-Programm, von 
machine code) besteht aus Bo- 
tahlsbytes (auch Opcodes ge- 
nannt)} und aus Daten, die zwi- 
schen den Opcodes stehen. 
Der Opcode teilt dem Prozes- 
sor mit, was er tun soll, und wie 
viele Datenbytes noch folgen, 
die er lesen soll, möglich sind 
1 Byte, 2 Bytes oder keines. 
Um ein Maschinensprachpro- 
gramm aufzurufen, gibt man 
von BASIC aus SYS mit der 
dezimalen Startadresse oder 
vom Monitor aus G mit der he- 
xadezimalen Startadresse ein. 


Für den Programmierer ist es 
jedoch eine Zumutung, Byte für 
Byte in den Computer einzu- 
geben, denn dann muß er ent- 


UNSER ASSEMBLER-KURS 
Der Prozessor 


weder alle Opcodes auswendig 
kennen oder ständig in Tabel- 
Ion nachschlagen. Die Über- 
sichtlichkeit ist natürlich mise- 
rabei. Daher benutzen wir ein 
Übersetzerprogramm 
(Assembler), das eine der Ma- 
schinensprache sehr ähnliche 
und häufig mit ihr verwechselte 
Sprache in reine Maschinen- 
sprache übersetzt: Assembler 
{die Sprache heißt so und das 
Übersetzungsprogramm auch). 
Wenn wir ein Assemblerpro- 
gramm schreiben, so benutzen 
wir anstelle dar Opcodes drei- 
buchstabige Gedächnisstützen 
(Mnemonics, von griech: Ge- 
dächtnis) wie z.B. ”"LDA” für 
"Ioad akkumulator". Also, lade 
den Akku mit einer bestimmten 
Zahl. Außerdem können wir 
wichtigen Adressen einen Na- 
men {label} geben, denn JSR 
PRINT (35R entspricht in BA- 
SIC GOSUB) sagt mehr aus, 
als JSR 653956. Wenn $ie sich 
die Anleitung von GENESIS, 
das ist der Assembler, den wir 
benutzen wollen, noch nicht 
durchgelesen haben, so sollten 
Sie das jetzt tun. GENESIS 
kann beim Tronic-Verlag unter 
der Bestellnummer SPOK2 
(Kassette) oder SPOD2 
(Diskette) bezogen werden. 
Nach dieser langen theoreti- 
schen Einleitung können wir 
uns jetzt endlich dem Pro- 
grammieren in Assembler zu- 
wenden. Wenn Ihnen dabei ein 
Fremdwort auffällt; das Sie 
vergessen haben, können Sie 
in Tab. 1, einem Mini-Lexikon 


Heute setzen wir unseren Kurs mit 





der neuen Fachausdrücke, 
nachschlagen. 
Die Befehle 


DA, LDX, LDY, STA, STX,STY 
und RTS 


Schauen wir uns das Pro- 
gramm 1 an. Nach jeder Zei- 
lennummer, außer der letzten, 
steht ein Doppelpunkt, der für 
GENESIS wichtig ist. Der erste 
Befehl ist "ORG $ 0400". Diese 
Anweisung ist jedoch kein wir- 
klicher Befehl, er sagt lediglich 
dem Assembler, ab welcher 
Adresse das übersetzte Pro- 
gramm abgelegt werden soll. 
Ab der Adresse $0400 ist ei- 
gentlich der RS232-Input- 
Puffer, aber weil wir die 
Schnittstelle in unserem Pro- 
gramm nicht brauchen, können 
wir unser Programm hier able- 
gen. In Zeile 1006 steht nun der 
Betehl "LDA #3". Der Befehl 
LDA bedeutet, wie schon er- 
wähnt, "load akkumulator". 
Das " #"-Zeichen gibt an, daß 
jetzt der Wert folgt, der in den 
Akku geladen werden soll; 
stünde es nicht da, so läse der 
Prozessor den Wert aus 
Adresse 3 und schriebe ihn in 
den Akku, was natürlich Un- 
sinn wäre, Es gibt noch mehr 
von diesen Adressierungsar- 
ten, auf die wir noch zu spre- 
chen kommen. Die Adressie- 
rungsarten "# Zahl” nennt 
man unmittslbar. 


Dis folgenden zwei Befehle, 
LDX und LDY, bewirken das 
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Selbe wie LDA, nur wird hier 
der Wert in das X- bzw. Y- 
Ragister geschrieben. 


Nach der Leerzeile stehen 
dann die Befehle STA 30c00, 
STX $0c01. und STY $0c02. 
STA bedeutet "store akku”, 
also speichere den Akku. Da- 
nach folgt eine Adresse im 
Hexadezimal-Format, ange- 
zeigt durch das davorstehende 
$. Ar dieser Adresse wird der 
Wert des Akku abgelegt. STX 
und STY sind wieder die Ana- 
iogbefehle für das X- und das 
Y-Register. Durch diess 6 Be- 
tehle werden also die Bytes 
93,16 und 21 in die Adressen 
3072-3074 geschrieben. Weil 
aber der TED die Zeichen, die 
ar auf den Bildschirm schreibt, 
aus dem Bereich 3072-4071 
holt, werden die, den drei Wer- 
ten zugeordneten Zeichen (8. 
Handbuch 
8.213/214:Bildschirmcodes), in 
die linke obere Ecke des 
Bildschirms geschrieben. Der 
letzte Befehl, RTS, hat 2 
Funktionen. Er bedeutet 
"return from  subroutine”, 
Stand vor diesem Befehl schon 
einmal der Befehl JSR, der in 
BASIC GOSUB entspricht, so 
wirkt er wie RETURN. In unse- 
ram Fall stand aber kein JSR, 
dann bedeutet der Befehl: 
Springe ins BASIC zurück. 
Nach dem Asssmblieren {F1) 
können wir unser Mini- 
Programm mit SYS 1024 star- 
ten ($0400 = 1024), 


Wenn wir aber längere Texte 





LISTING } 

1900 ı 

1002 ; ORG #0400 
1004 \ 

1008 5 LDA #3 
1008 } LDX #1& 
1010 ; LDY #21 
1012 3 

1014 & STA $0C00 
10168 : STX #0C01 
1018 3 STY 30002 
19209 : 

1022 : RTS 

1024 ! 

10265 END 


auf den Bildschirm bringen wol- 
len, ist diese Methode sehr 
umständlich. Das 2. Programm 
zeigt, wie es einfacher geht. 


JSR, BEQ, INX, INY, DEX, 
DEY, INC, DEC, die indizier- 
te Adressierungsat und 
CHROUT 


Das Betriebssystem des C16 
stellt uns einige sehr nützliche 
Unterprogramme (Routinen) 
für eigene Programme zur Ver- 
fügung; eine davon ist die 
CHROUT-Routine. Sie steht ab 
Adresse $ ffd2 und bewirkt die 
Ausgabe des Zeichens, dessen 
CHR-Code (der sich vom 
Bildschirmcode unterscheidet!) 
im Akku steht. In Zeile 1006 
wird zunächst das Label 
CHROUT definiert: ihm wird 
der Wert $ffd2, also die An- 
fangsadresse von CHROUT, 
zugewiesen. Dann wird das 
X-Register mit einer 0 geladen 
(Zeile 1010). In Zeite 1012 steht 
der Befehl LDA, der uns schon 
bekannt ist, aber die Adressie- 
rungsart scheint neu zu sein. 
Das Label! TABELL entspricht 
der Adresse, ab der in Zeile 
1026 ein Text mit dem Psou- 
dobefshl ASC abgelegt ist. 
ASC ist, wie ORG, kein Pro- 
zessorbefehl, sondern eine 
Anweisung an GENESIS. Ab 
der Adresse TABELL steht also 
ein Text im ASCil-Format, ab- 
geschlossen mit einer O {Zeile 
1030 : BYTE 0). Das "X” nach 
dem Label TABELL in 1012 ist 
das Besondere: Zu der 
Adresse TÄBELL wird der Wert 
des X-Registers hinzuaddiert 
und der Inhalt der resultierten 
Adresse gelesen. Noch ist 
X=0, daher wird der ASCII- 
Code des ersten Zeichens 
(TABELL+0) gelesen, Man 
nennt diese Adressierungsart 
indiziert, weil das X-Register 
als Index benutzt wird (daher 
auch der Name "Indexregis- 
ter”). Mit dem Y-Register ginge 
das genauso, also LDA, TA- 
BELL, Y. Der nächste Befehl, 
BEQ, ist neu, Er bedeutet 
"branch if equal”, Verzwei- 
gung, falls gieich. Er gehört zu 


der Gruppe der bedingten 
Sprungbefehle und wird nach 
Vergleichen benutzt. Wenn je- 
doch kein Vergleichsbefehtl da- 
vorsteht, wie in unserem Bei- 
spiel, bedeutet er: Varzwei- 
gung, falls letzter benutzter 
Wert=0. Der letzte benutzte 
Wert ist bei uns jedoch der 
Buchstabe, der aus der Tabelle 
gelesen wurde. Ist dar Wert 0 
erreicht, also die Endmarkie- 
rung, springt der Prozessor zu 
der Adresse ENDE, wo der Be- 
fehl RTS steht, also an das 
Ende des Programms. Noch ist 
der Wert aber der ASCI-Code 
von ”E”, also geschieht gar 
nichts, Dieser Wert wird in der 
nächsten Zeile der Routine 
CHROUT übergeben. Der Be- 
fehl JSA CHROUT ruft die 
Routine CHROUT ab Adresse 
$ffd2 auf, denn in Zeile 1006 
haben wir ja diese Zuweisung 
vorgenommen. Wir hätten 
auch schreiben können: JSR 
ffd2. Die Routine CHROUT en- 
det, wie alle Unterroutinen, mit 
ARTS, dadurch springt der Pro- 
zessor von der Unterroutine 
zurück zu dem Befehl im 
Hauptprogramm, der auf den 
JSR-Aufruf folgt. Der erste 
Buchstabe, das E, wurde also 
auf dem Bildschirm ausgege- 
ben. 


Der Befehl INX bewirkt, daß 
das X-Register um 1 erhöht 
wird (increment X). Also steht 
jetzt in X eine 1. Außer INX gibt 
es auch noch den Befehl DEX, 
decrement X, der X um 1 ar- 
niedrigt, die Befehle INY und 


DEY, die sich auf das Y- 
Register beziehen und INC und 
DEC, die eine (danach ange- 
gebene) Speicherstelle erhö- 
hen bzw. erniedrigen, 


JMP SPRUNG in Zeile 1020 ist 
ein unbsdingter Sprungbefehl, 
das heißt, das Programm wird 
in jedem Fall bei SPRUNG 
fortgesetzt. Jetzt ist X= 1 

und der Wert aus TABELL+1, 
also der 2.Buchstabe, wird ge- 
laden, mit CHROUT ausgege- 
ben, dann der dritte usw., bis 
der Wert 0, die Endmarkierung, 
erreicht ist: Dann verzweigt der 
Befehl BEQ, ENDE zu dem Be- 
feht ATS, und das Programm 
wird beendet, Zur Ab- 
wachslung haben wir den Code 
einmal ab Adresse $065e ab- 
gelegt; dieser Bereich ist etwas 
größer und für ÄAnwenderpro- 
gramme bestimmt. Gestartet 
wird mit SYS 1630. Wir können 
auch andere Texte ab Zeile 
1026 eingeben, wichtig ist nur, 
daß sie mit einem BYT 0 abge- 
schlossen werden. 


Experimentieren sie ruhig mit 
den gelernten Befehlen und 
GENESIS etwas herum: Mehr 
als abstürzen kann auch der 
C16 nicht. 


Im nächsten Teil lernen wir den 
Stapel, das Statusregister, 
einige arithmetische Befehle 
und nützliche Routinen ken- 
nen. Außerdem finden wir eine 
Übersicht über die Register 
des TED und die Flags des 
Statusregisters. 





LISTING 2 

1000 : 

1902 : ORG 9065E 

1904 : : 

1906 :CHROUT EQU SFFDZ 

1008: : 

1910 : LOX #0 

1912 :SPRUNG LDA TABELL,X 

3914 : BEG ENDE 

1016: ; JSR CHROUT 

1018 $ INK 

1920 JMP SPRUNG 

1022 :ENDE RTS 

1024 : 

1028 !TABELL AST "ES IST PRAKTISCH, ROUTINEN AUS DEM ROM * 
1923 ; ASC "IN EIGENEN PROGRAMMEN ZU BENUTZEN.® 
1030 ; BYT 9 

1932 : 

1934 END 
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Tabelle 1: Mini-Fachwörter-Lexikon 


Adresse: 
Akku(mulator): 
ASCI.: 
Assembler: 


Banks: 
Bankswitching: 
BASIC-Interpreter: 
Betriebssystem: 
Binärsystem: 
Binary digit: 

BIT: 

Byte: 

Central processing 
unit: 

CPU: 
Dezimalsystem: 
Dualsystem: 
Hardware: 
Hexadezimal-System: 
Interpreter: 

V/O: 

KByte: 

Label: 
Maschinensprache: 
MC: 

Mnemonic: 
Opcode: 

PC: 

Program counter: 
Prozessor: 

RAM: 

Random access: 
ROM: 

Routine: 

RS232: 
Sedezimalsystem: 
Software: 

SP: 

SR: 

Stackpointer: 
Statusregister: 
Stellenwert: 

TED: 

TEDMON: 
X-Register: 
Y-Register: 
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1.) Datenmenge 16 Bit, 2.) Speicherstelle 

Hauptrechenregister des Prozessors 

internationaler Zeichencode (s. Handbuch S. 215 f.) 

1.) der Maschinensprache ähnliche Sprache, Opcodes durch Mnemo- 
nics ersetzt, 2.) Übersetzerprogramm Assembler-Maschinensprache 
Speicherblöcke, die meist an- und ausgeschaltet werden können 

Das Umschalten zwischen mehreren Banks. 

Programm in ROM des CV16 zum Abarbeiten von BASIG-Programmen 
Programm im ROM des C16 für Grundfunktionen (z.B. Ausgabe) 
Zahlensystem, bei dem es nur die Werte 1 und 0 gibt 

s. BIT 

kleinste Speichermenge, entweder 1 oder 0 

Speichermenge, entspricht 8 Bits 


s. CPU 

Steuerbaustein des Computers, auch Prozessor genannt 
Zahlensystem mit der Grundzahl 10. 

s. Binärsystem 

alle Bausteine des Computers bilden die Hardware 
Zahlensystem mit der Grundzahl 16 

s. BASIC-Interpreter 

Input/Output, Eingabe/Ausgabe 

1 KByte = 1024 Bytes 

Buchstabenfolge, der ein fester Wert zugsordnet ist 
Programmiersprache, die der Prozessor verarbeiten kann. 
machine code, s. Maschinensprache 

dreibuchstabige Gedächtnisstütze anstelle von Opcodes 
Byte eines MC-Programmes, das einen Befehl darstellt 
hier: program counter 

Register des Prozessors, enthält aktuelle Adresse im MC-Programm 
s. CPU 

Speicher für wahlweisen Zugriff, auch mehrmals schreiben möglich 
memory s. RAM 

Nur-Lese-Speicher, enthält Betriebssystem und BASIC-Interpreter 
Unterprogramm 

Schnittstelle des Plus/4 

s. Hexadezimalsystem 

Programme 

Register der CPU, für Unterprogrammaufrufe wichtig 
Register der CPU, zeigt Ergebnis von Operationen an 

s. SP 

s. $R 

Wertigkeit, die eine Ziffer innerhalb einer ganzen Zahl hat 
Multifunktionsbaustein für Video, Sound, /O 

eingebauter Maschinensprachmonitor des C16 
Indexregister des Prozessors 

indexregister des Prozessors 
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BEBHHREERRUROEE EM 
Supor-Bastc-Erweiterung 


für O-16 mit 32K/Plua 4 - BO neue 
Befehle: Umlaute auf 801 - Win- 
cow Befehle in Variablen ausf. 
«SCOT Hardcopy - Spiit-Screen 
E23} DSYS - DPEEK - DPOKE 
"DESIGN auf Disk nur 44.90 DM 
«Info/Bestellung (V-Scheck oder 
Nachn.) bot; 
Svan Giero 
Lessingstr. 74, 
3167 Burgdorf 
Teletorı: 05136/84287 


ISBEDRRHTTRTROEEN 
YO HEHE H HH 


Umfangreiche neue Hard- 
wars für CI6M116/Plus 4. 
z.B. RITY Senden und Em- 
pfang Modems zum Anschluß 
an Plusd 
Lightpen für G16/11&/Plus4 
RS 232-Schnittstelle und 
USER-Port für GI6116/Plus4 
Fluss Centronics-Schrittstells 
Umfangreiche nützliche 
Programme auf Programm- 
diskeiten 
Kostenloses Info: 

Wi Keßler -Electronic- 
Ruprechistr. 14, 

6736 Edesheim 
Tel. 06323/7114 
BE HREHFIHHHHHLES 
EERERTRERLLERSEHE 


® e.16/Plus 3 GRATIS-INFO : 


GEUEHERESREUTEE 


000700027707 47779707 0 gBUSFEUFENEREERE 


990094) 


® Spiele « Anwender - und r 
® Kopierprogramma/Hardware & 
8 Gras POKE-Liste bei 
Thomas Görtz & 

® Postfach 11 05 18 s 
* 6100 Darmstadt = 
: Postkarte genügt!!! ® 
EEERERESERLSEFEE 






Wichtige 


Private Kleinanzeigen wer- 
den nur gegen Vorkasse. 
veröffentlichti 


Zur Bezahlung von Kleinan- 
zeigen werden keine Brief 
marken oder Fremdwährun- 
gen mehr entgegengenom- 
ment 


Kleinanzeigenaufträge unter 
Angabe einer Postlagerkar- 
tennummer oder Hin 


für Kleinanzeigeninserenten: 
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Plus 4*****0-16”"*"*Plus 4 


Das Super Grafik- und Malpro- 
gramm incl. 17 verschiedenen 
Zeichen aetzan. Bedienung 
mit Maus, Tastatur oder Joy- 
stick möglich für nur DM 69,- 
BASIC-Compllor Plus 4 
DM 119,- 

MAUS für Plus 4 DM 149,- 
Fa. BLK-Mürchen 
Kaspar-Spaet-Str. 15, 
80009 München 90 
Telefon: 089/688226 


2-22 22.22 02.2 2 2.202.203 
BEGEGSEIAETHGHHH 


‚wensessgnunenaouan 


Er Br hr EI CE Tr EEE" 
2 6.161118 - Plus 4 [2 
. Soltwars [2 
ar Texiprogramm mil 80 Zeichen pro 
a Zeils auf dem Schinm sichtbar.” 
= SAD-Programm Dit &-tacher 

Schirmfläche und 4 Schriitgrößen „. 


4) 9,- DM 
= Kanne RAM 2 
w ZAPO-Software 1.B. Kohler er 
4 Potsdamer Siraße 27 er 
2 1000 Berlin 45 ar 
. Telefon 0 30/83 32565 ar 
wre re ET ET ET ET" 
BERBFERAHRAHBHSASE 
& ® 
®& Achtung ® 
= COMMODORE - USER 
“= Gratis - info für = 
& 0641C-16/C-116 /PLUS4 & 
5 Spiele und ® 
® Anwenderprogramme & 
8  BERLAU-SOFT & 
® Postfach 1415 ® 
© 2150 Buxtehude $& 
® 


BBBEREEHBEREARE 


Hinweise 














weis „postlagernd” werden 
nicht voröffentlicht, 


Der Verlag behält sich vor, 
alle von der Bundesprüfstelle 
indizierten Programme, 8r- 
satzlos zu Streichen. 


Wir weisen darauf hin, daß 
urheberrechtlich geschützte 
Software nur im Origina! zum 
Varkauf oder zur Verbreitung 
angeboten werden darf. * 





Suche dringend Plus 4/C-16 Anpas- 
sung an Conrad-Computerlabor, sowie 
entsprechende Programme für VO- 
1520. Angebot an Gerd P, Schneider, 
Gartanweg 6, 8856 Neuburg /D. 





Suche funktionstüchtigen Plotter 
VC 18290 bis 120,- DM oder Platine bis 
50,- DM. Wolfgang Riftelmacher, Bach- 
gasse 6, 8542 Roth oder Tel. 
09171/80298 


Suche: Drucker, neuwertig bzw. gut 
erhalten, kompatibel zu C-18. Wolfgang 
Nieger, Hans-Böckler-Str. 2, XH-1; Tel.: 
06121/424672 


Dofekter Drucker WC 1515 zum 
Ausschlachten gesucht. Suche für den 
Plus 4 preisgünstigen Plotter nebst 
Software-Disk. H. Krieger, Kolpingstr, 
19, 7850 Lörrach, Tel.: 07621/84198 


Suche Routine um 93-Plus-1 Ael-Datei 
(t) In Seg-Datei zu exportieren; wie dies 
z.B. mit dem MasterBase-Plus/4 (64’er) 
Programm möglich ist. Hardware: G P4 
& 2x1551 & 1591 & Turbo-Plus Modul & 
Seikosha SP-800. Es darf auch etwas 
kosten! Gregor Becker, Stettiner Sir, 50, 
4000 Düsseklorf 13 











SIEHE NIS 





C-16/64 KB Orig. + Script Plus + 
Zubeh. + Hefte + Kass, + Tape (alles 
neuwertig) verkauft für 200 DM: H. 
Gresch, Eltvillerstr. 18 Hinterhaus, 6200 
Wiesbaden 





Floppy 1881 für C-16, wenig benutzt 
+ Disk für 200 DM. Drucker Microline 
182 für Commodore, neuwertig eben- 
falls für 200 DM. H. Gresch, Eltvillersir, 
18 Hinterhaus, 6206 Wiesbaden 


Verkaufe C-16 + Disk 1551 + 
Drucker MPS 802 + Zubehör für 820 
OM. Bitte meldet Euch bei: Andra Kio- 
viet, Erlenweg 12, 4520 Melle 1, Tel.: 
0542277239 . 


Fioppy 1681 - Dalaselte - Turbo Plus 
Modul - Plus Paket 18 - Grafik Des. 
-Paintbox - Musik Master - Bücher; Ef- 
fekt, und kreativm.d. +4- Alles ü.d. +4 
„ Basic Lehrbuch - diverse Handbücher 
-20 Co, mit9 Co. mit SA +4 (Tast. leicht 
ausgsschlagen)-ca. 130 Disks - ca. 600 
Spiele - ca. 300 Anwenderprogr. = 2 








" Dischoxen - aur als Paket an Meistbie- 


tondan abzugeben. Tel.: 08122/41905 





Drucker CP 80 mit Görlitz-Interface 
für 2680 DM VB. Wolfgang Riffelmacher, 
Bachgasse &, 8542 Roih, Tel.: 
09171/80298 





Commodore C-1151/54 KB, Drucker 
Seikosha GP 100 VG, Dataseite 1531. 
Bücher Hefte, Spiele, Neupreis B0O DM, 
jetzt 250 DM. Tel: 02234/59317 
Schmidt 





Interface für Akustikkoppler und 
Plus 4; Platine 8,- DM; Fertiggerät 40 
DM; Expansionsportplatine (ohne So- 
ckel) 8,- DM von privat abzugeben, 
Eberhard Sirges, Bismarckstr. 73, 5100 
Aachen, Tal.: 0241/5713765 


Verkaufe: Puss 4 + ROM- 
Listingsbuch für 1956,- DM; 0-116 mit 
verst. Neizteil + Datasette + 10 Pro- 
gramme für 80,- DM; Floppy 1581 VB 
220,- DM; VC-20 Platine + Trafo für 
25, DM. Tei.: 02168/20900 


C:1[15}Plus4Mausadapter ermd- 
glicht den Anschluß von Mäusen oder 
als Joystickadapier (Autofirel) DM 85;- 
mit Maus (2 Tasten!) DM 100,;; beides 
mit Grafikprogramm/HEX-Zusatztasta- 
iur zur komfortablen Eingabe von MG- 
Progr. mit TEDMON oder MC-Check- 
summer oder als Zusatzfunktionstasta- 
tur für Basic: 36 DM, groBe Ausf. 60 DM: 
Progr. auf Disk oder Tape. Hans-Dieter 
Veit, Rennweg 21, 8441 Aiterhofen 











Diverse Ersatzteile zu verkaufen: 
Tastaturen, Gehäuse, Platinen und IC’s. 
Reparaturen! Harald Hobbelmann, Jun- 
kemkamp 13, 2822 Schwanewede, Tel.: 
04209/5390 ab 18.00 Uhr 


Verschiedenes 





Den Lösungsplan für das Adventure 
"Burg" bekommt Ihr für 10. DM (Schein) 
+ frankiertem Rückumschlag bei: 
Lasse Goaricke, Steinsir. 66, 2840 Wil- 
heimshaven 


Christliche Mailboxen: 
06101/88886, 07261/13708 
07961/43840, 08234/8809, 
09734/240 (alle 300,8N1) 


PLUVI das Pius/4-Magazin auf Dis- 
kette. Ausgabe Nr. 2 ist dal Berichte, 
Tips & Tricks, Soft- & Hardware, guie 
PD. Nur 10,- DM: Volker Huppert, Fer- 
lingsweg 15, 4150 Krefeld 1 











C-168/116/Plus 4*****Der UCO 
sucht noch Mitglieder, 80 Pf. an: Seba- 
stian Kruck, Bonifatiusstr. 6, 3549 
Volkmarsen, Tel.: 05693/6305 





Suche Tauschpartner für O-18/Plus 
4! Ich biste und erwarte Pünktlichkeit 
und Zuverlässigkeitt Nur Diskl!! Listen 
an; Arnd Woll, An Stübenhaus 15, 2900 
Oldenburg, Tel.: 0441/41287 





Tauschpartnor gesucht Tausche 
Software C-16/Plus 4 (nur Diskelten). 
Schickt Eure Listen an Manfred Schmitt, 
Gorch-Fock-Sir. 8,2849 Wangerland 1, 
Tel.: 04489/6027 


Suche Tauschpariner aus aller 
Welt, Habe Topprogramme, verkaufe 
auch Originalkassetten. Antworte 
4008%ig, bitte meiden bei: Tobias Löcke, 
Ziethenweg 87, 4790 Paderborn 2 
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©-18/G-188/Plus 4 USER werden für 
unseren Gomputerclub gesucht. Infos 
bei Marcus Freiheit, Michael-Bohnen- 
Ring 5, 10090 Berlin 44 


Achtung C-16/Plus 4 USER Com- 
modore Club nimmt noch Mitglieder auf, 
wir bieten Super Glubzeitung, Tips & 
Tricks, Freesoft, Bastelanleitungen, 
Wettbewerbe etc. Weitere Info's gegen 
1,60 DM Rückporto bei G.l.G. co K.D. 
Schindler, Luciussir. 10a, 

6230 Frankfurt 80, 

Tel.: 0989804941 





€. m.c. 0.V., Postfach 19 14, 4150 Kre- 
feld 29, Mailbox "HEXAGON” 
02161/58457 24h, 300/8/N/1, Btx 
"920163020 # Reg. Bereich 17. 
Computersysteme: VC-20, ©- 
18/166/Plus 4, G-64/128, Amiga und 
IBM (komp.)| Wir sind auf der CeBIT! 
Vom 8.-15.3 im Computer Gamp Halle 
19! Weitere Glub-Infos gegen 80 Pf. 
Rückporto! 


Biete Software 





LOGO für Plus 4 und C-16[64K) 
Modul, Demodisk und Handbuch für nur 
50 DM. Auch andere Modulsoftware. 
Harald Hobbelmann, Jurikernkamp 18, 
2822 Schwanewade, Tel.; 04209/5390 
ab 18,00 Uhr 


Cc-16/1 16/Pluss Superpro- 
grammei Anwender + Games incl. 
SENSEI und Vokabeltrainer, 


Tape/Disk, 18/84 K, Lista gagen 80 Pf. 
bei: M. Bischof, 

Gänsackerwag 43, 

7915 Elchingen 


SAYONARAI "SENSEI? is here! 
C16/+4 Taktik & Karatespiel Tape/Disk, 
Spielstand abspeichern (nur 64K) gegen 
10,- DM Vorkasse: M. Bischof, 
Gänsackerweg 43, 

7915 Elchingen 


VOKABELN LERNEN LEICHT GE- 
MACHT! Erfolgsnachweis! 0.16/+4 
Tape/Disk, 15,- DM Vorkasse frei Haus, 
Ideal für 16 KB: M. Bischof, Gänse- 
ackanweg 43, 7915 Elchingen 



















Demnächst auch eins Seckplaizerwellerung das 


C16 - SA 2/89 


Bestückt mit vier Eproms 
27127 (250 ns, 12.5 V) 


Unbestückt, nurmit den 
Stecksockeln DM 39,- 


Preise für Memoriss’bitte artragen! 
Preise enthalten 14% MwSt. zusätzlich DM 5,- 
Versandkostananleil, Bestellungen sariden an: 
SOFT- und HARDWARE Dipl.-Ing. Mal. Rätzel, 
Ulvenbergstraße 6, 6100 Darmstadt, Tel 06151/594612 


Sio suchen gute (!!!} PD für Ihren 
Plus/4 mit Floppy??? GODZILLA, das 
Top-PD-Spiel aus Ungam. 10.- DM an 
V. Huppert, Ferlingsweg 15, 4150 Kre- 
feld 1 


KUXKCiSXXT16EXHPLUSH KK über 
60 Programme auf Diskette (Spiele und 
Anwender) 20,- DM, keine Nachnahme, 
Jörg Heyer, Hellweg 27, 4300 Essen 14 


++ +SOFTWARE - KATALOG 
1889++ + Der neue Software- 
Katalog bietat Ihnan eine große Auswahl 
an Software-Zubehör für den Commo- 
dore 18/116/Plus Aill Nur Original 
Software zu extrem günstigen Preisen! 
NEU: Jetzt großer Anwender-Teil! Bitte 
Rückporto beilegen. Danke! P. Schä- 
ters, Riekestr. 5, 4402 Greven 1 


xxxC16/Plus4, Software PDxux 
35 Disketten sortiert für Schule, Spiet, 
Uxlity, Graphik, Sound, ca. 30000 Blö- 
cke. Probedisk: DM 10,- doppelseitig bei 
F. Eitner, Dr. Beber Str. 17, 2222 Marne 


Hay C-16/Plus 4 Userl!! 80 Spiele + 


Anwender auf Diak {AGE, Pairtbox, ect.) 
für 30,- DM Vorkasse bei Matthias Koch, 
een 56, 2818 Aethem (Infodiek = 
1 0,- ) 


SUPERBILLIGI Ausgssuchte 
Froessoftwarel 8 Diskseiten für nur 
20,- DM bzw. 4 Disk für 10,- DM gegen 
bar im voraus an Michael Leopold, 
Goldberg 38, 3559 Allendorf, 018, Plus 
4 





ACHTUNG! 
+Kopierprogrammsammlung+ auf 
Disk - 84 KB - erforderlich - Für Ihre Si- 
cherheitskopien - 20,- DM im voraus an 
en Leopold, Goldberg 38, 3559 Al- 
endo! 


Biete Programme zur Berech- 
nung von Krediten aller Art. Ideal 
für  zukünflige Hausbesitzer. Nur 
Original-Software in vier verschiedenen 
Versionen ab 9,90 DM + 3,- DM Ver- 
sandkosten auf Cass. erhältlich. Info 
gratis bei: Ralf Meier, Lindenstr. 35, 
5970 Kall, Tel.::0 24 41/87 26 


Verkaufe für C16, 116 + 64 KB 
eine Disk. (2-seitig) voll mit Topgames 
tür schfappe 15,- DM. Bei mir bestellen: 
A. Jungheim, Tulpenweg 4, 3430 Wit- 
zenhausen 6, Disk kommi sofort. 


64 - K 
EPROMKARTE 


FÜR PLUS 4/C 16 


Die Karte Ist ca. 57 x 103 Millimeter groß 
und trägi vier Stacksockel, Sie kann mit 
den Epromtypan 27xx(x) (271627256) 
bestückt werden. 













DM 84,- 







sports (4 bis 10 Stots) 





SPIELPROGRAMME 


ACE 64K 
ARTURNOID 19 90 
FORTAESS 





















UNDERGROUND 90 ID) 9 
MERGENARY GOMF. K300 (D)400 
MANIAX G4KB 220 (DI 2490 
FIRE GALARY 1 900 M) 3m 
SUNSTAR ZH 
STAIP POKER li+ BUKB  {R240 (DI 2400 
TUBE AUNNER (040 
WE2 1290 (D)3480 
POWER PACK (10 SPIELE) (K) 24,90 
EMERALD MINE GAKB  (K2480 (D) 2490 
BOMB dA0K 9% 
©16 COMPILATION ik 99 
BMX SIMULATOR ik) 99 
CHAMPIONSHIP 

WRESTLING 240 
PLUS 4 SEXTETT 6A KB (2400 (0) 2490 
DEMOLITION KR 3 (D) 980 
WINTER OLYPIADE 1780 (D)170 
CUIWI (N 1730 (D) 1790 
SOMMER OLVMPADE (K2480 (0) 2480 
FRANK BRUNOS BOKING {K} 950 
INDOOR SPORTS KR 
STEVE DAVISSNOOKER  {K} 990 
SASOTEUR (AUCH BA KB) (K) 930 





Verkaufe Splele aus Ungarn/USA 
auf Disk u. Tape für ©-16/Plus 41 Jede 
Menge 64 Kl! Inio bei: A. Blume, 
Kessberg 26, 4796 Salzkotten 2, 

Tel.: 0 29 55/82 22 


©-18/Plus 4 Grafik-Fresks! Verk.2 
Disk.-Seiten mit bewegten Grafiken für 
10,- DM. (Nur 84. K). Auch auf Taps! An: 
A. Blume, Kessberg 26, 4796 Salzkot- 
ten 2, Tet.: 0 29 55/62 22. 


“HALLO C16/118/PLUS 4 Fraaks* 
Biete 50 Spiele + Anwender menusge- 
stauert + 1 Copyprogramm für 10,- DM, 
Liste 80 Pfennig. Iris Meyer, Letleallee 
69, 1000 Berlin 51 








NEU! Plus 4/C116 (64 k)DIAGRAM- 
MASTER, 12 Darst. Arten v. Zahlen. 
Stat, GEM-orient,, Hard copy, Disk mil 
An. Buch, 20,- DM zzgl. Vers., Fragen? 
Besi. Tel.: 06232/95371, Stefan Nord, 
Am Schafgarten 3, 8724 Dudenhofen 


Computer Serbicte 


Michasi& Joachim 
Postfach 1394 - 7913 Sendenililer 
Teiston (07307) 6230 


©-18/5-116/PLUS4 ANWENDERPROGRAMME 


+ JOYSTICKADAPTER 


Katalog mit Programmbeachreihungen NUR gegan DM 1,00 in Briefmarken. 
Versandkosten: bis DM 1- Vorauskasse DM 350 Nachnahme DM 750 
alı DM 150,- kame Versandkosten * solange Vorrat reicht 
Preisändanmgen, Irrtümer und Streichungen vorbetalten. K=-KASSETTE 

Besuchen Sie unser Geschäftsiokal in Senden, Haydıatraße 2 






























TURBO PLUS MODUL 
MUSIC MASTER (K). 17800) 1790 
PROFILE 64K (K) 8200 (0) 5900 
TEXTSTAR B4K 7900.(D) 7900 
COMBIPACK 64K (X) 14500 (D) 14500 
FAKTURA 84 K 3900 
PROFIPNCK IK 12000 
BOX 1890(0) 1890 
COMBIPACK 20 64K Be 
DATEX 10 (9 2420(0) 3490 
MICRO DATE) (k) 1790) 1790 
MIGRO KALK (X) 17900) 1790 
FORHULA $4K ) 3990 
TEXTWORD II" 2 
PROFILE 2 7900 














JOYSTICKVERLÄNGERUNG 

QUICKSHOT I + 

ABDECKHAUBE C-116 

ABDECKHAUBE PLUS 4 

ABDECKHAUBE GIaN5SonEST JE 
QUICKSHOT || TURBO 












D=DISK 





FREESOFT Ci6! Biets Supersoftware 
zu fairen Preisen; 

2 Disk/45 Seiten 10,-DM! 

Info bei: Dirk Maas, Ohrenfeld 129, 
4200 Oberhausen 1 

-Habe auch 64 k-Softwaralll! 


FREEIOFTWARE für GIS! 116, +4 
u. ©-64. 8 Discseiten 20,- DM, 24 
Discseiten 50,- DM. Nur ©-84: 50 
Biscseiten 100,-DM, 

Viktor Jürgens, 

Prinzensir. 131, 2330 Eckernförde, 
Bitte Computeriyp angeben. 


©-16 (63k)/ Plus 4 User Verkaufe auf 
12 Diskettenseiten spizen Spiel- 
Kopier-Anwenderprögramme,. (z. B. 
AGE, Quiwi, Winter-Events, Painibox, 
Demolition, usw.) Alles zusammen für. 
nur 90. DM!!! Marc Brunsmann, 
Bernhardsitr. 12, 2843 Dinklage, Es 
lohnt sich! 

P.S.: Auch Tausch möglich! 
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__ ZERIRENINTZUNDZAENGIEIN 


616/116 und Plus/4 Kass./Disk 
Spielesammlungen 


9 
deutsch. 


Anwenderero ramme 


Vokabelismprögramm 
CEJ Turbo Tape euer 


|, 1770 ı SpePeEeReE 


Gratisinfo gegen franklerten Rückumschlag 
bitte Computersystem angeben! 
Versandkosten: 2,50 DM Schack/bar, 5,00 DM Nachnahme 


ab 100,00 DM versandkostenfreie Lieferung! 
* Lieferung solange Vorrat reicht 


SF Soft Abt.CH, Nühlenweg 7, 3405 Seulingen 


24Ah-Bestelltelefon 05507/2361 
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C116/C16/Plus 4 (Vokabel-)Trai- 
ner, das Lernprogramm nicht nur zum 
Vokabelpauken, DM 10,-, Piclture- 
Master, das superstarke Graphicpro- 
gramm mit den vielfättigen Möglichkei- 
ten, DM 10,-, Super-Miner, das aus dam 
Rahmen fallende Weltraumadventurs, 
DM 10,-, Videodalei hält Ordnung in Ih- 
rer Videosammiung, DM 10,-. Bitte an- 
geben, ob Tape oder Disk, Veit, Hans- 
Dieter, Rennweg 21, 8441 Aiterfıofen, 


C-1614+4 Verkaufe eine heide pıa- 


SHOW mit 150 dig. Superbildern, z. T. 
in Farbe auf 8 Disk. zu nur 40,- DM. Ver- 
kaufe auch Spiele, wie Funny Girls usw. 
1 Disk voll 20,- DM. (Beides auch auf 
Tape.) Beide S. zusammen 50,- DM. 
Verkaufe auch Spiele und Anwender. 
Liste gegen 2,- DM. Suche immer die 
neueste Softl Andreas Goebbels, Wei- 
denstr. 100, 4700 Hamm 1 


C-16/116/Plus 4: 30 Spiele für 10,- 
DM oder 70 Spiele für 20,- DM (nur auf 
Tape!) Schein an: 

Dietmar Neumann, 

Trierer Str. 398, 5100 Aachen 


COMMODORE 16/116/PLUS 4 
Spilzen Software zu extrem günstigen 
Preisen! Gesamikalalog mit Anıwender- 
teil 80 Pfl P. Schäfers, Riekestr. 5, 4402 
Greven 1 


Freeware für C-16, 116 / Plus 4: 
Nur ausgesuchte Programme! Verkaufe 
Einzelprogramme ab 20 Pf. Jeden Mo- 
nat Aklionpreise! Liste gegen 0,80 DM 
in Briefmarken, doppelseitige Demodisk 
mit u, a, Botticelli, Hungaroring gegen 
10,- DM Vorkasse bei: Helge Kunst, 
Hauptstr. 23, 2251 Olderup (rıur Disk, 
.Software) 








suche PD 


Hallo © 16 Basitzer Ich habe die ech- 
ten Superspiele, z.B, Bongo u. v. a. Info 
gegen 80 Pi, bei Tobias Federmann, 
Schlichternheide 87, 3105 Faßberg 


WINDOW-BASIC: Prof. Programme 
mil Windows und Pull-Down-Menüs, 
RAM Disk, Multitasking, Toolkit, auf 
Disk, 20,- (64 k) Richard Englert, 
Flößaustr. 180, 8510 Fürlh 


PUBLIC-DOMAIN- 
SOFTWARE für + 4 Biele 8 
Discseiten randvoll mit guier 
Software für 20,- DM. 

Uwe Schröder, 
Bgm.-Lienhop-Str, 7, 

2830 Bassum. 











Vorkaufe 16 Dia-Shows für 


30,- DM, 20 Digi-Sounds für 
20,- DM. Nur Disk! 

Vorkasse! 

Christian Picker, 

Emsgrund 11, 

4410 Warendorf 1, 

Digi-Sounds nur 64 K. 





SPRITE-BASIG f. C 16/PIus 4 
{64 k) Spriles wie beim © 64! 24 
neue Basic-Befehle. 8 Mutticolor- 
Sprites gleichzeitig: Versch. 
Größen; interruptgest. usw.; mit 
komf. Editor (laden, speichern, 
spiegeln, verschieben usw.) und 
Demo; umfangr, Anleitung; 39,- 
DM. 

Info gg. Fraiumschlag, T. Höllt, 
Rosenbrunnensir, 15, 

6940 Weinheim 





SOFTWARE FÜR C16 & PLUS/s 
SYS-CRACKER V.+ 100% MASCHTBENSPA, 
»ermetzt Kopimtprograme und jat derımkt 
Hau Gasta und winzigata Übertrugungsnto- 
grama diewer Art, Siehe auch Tust in der 
seomsuta mit+ Sonderausgabe 1/98. Mit 
AYS-TRACKER sind Sie etstmeis In der La- 
Er dia melatn nrotnctive Software van 
Original-Kaszatten au dunlixleren u, auf 
Diskette ud. Kanaette ahzuapelchern. Der 
Nutoatart wird dabei autom. abagruiert. 
ACHTUNG +SYI=CRACKER darf Aur für Sicher- 
heitakopian genutzt werden }] 

Mit ausf, deutscher Bedkenungsanlaitungs 
FÜR Cibrbak-Ran 3 PLUS/ü om 33,- 
ÜBERTRAGUNGSHANDRUCK 

zum SYS-CRACKER Vu1,0 „ Das ztahk drin: 
Schwierige Übertragungen, kaine bertra- 
gung aöglich, wichtige Tips & Tricks, 
aanle Progrsne-Tauallen wat. 4, 
1. Auflage 2 


SHAPE=EDI TOR.NEU- 100% MASCHINENSPR. 
nit diesem Supar-Snane-Editar können Sie 
Jetzt Ihnen Shaces leicht ung komfortabel 
erstellen, Vlelm Ontlanen wie: Hr und H= 
Spiegelung, drehen, Efachns verknüpfen, 

Shope-Aninution, u.a, Pit Anleitung 
FÜR cı6 4 PLus/A ’ 


DAME-SPIEL -NEi- 100% MASCHTNERSER, 
Iatzt Int an dal Das faszinlarende DAME- 
SPIEL. Sehr schnelle Computarzüge. Mit 
Saund und qutur Grafik, Mik Anleitung 
FÜR Cib+BaK-Ram 4 PLUS/A br 15,=- 


BASIC=-SAFE -MEU- 100% maschtnensen, 
Bietet 100%tigen Schutz It Fila wird co- 
siurt auf Dink od.Kass, gespeichert. Mit 
Inslvidueiler Schlünselwurteingsbe. Das 
Beste für zile Bosic-Progsummlerer | nit 
wuaf, duutacher Bedienungsanleitung. 

FOR CIb+BAK-HAn A PLus/a om 19,- 
DISK RETTER V.3.5 

zuttet gelöschte Files, PNG,SEO,USM,REL, 
ne Arnüstevarung. nit Anleltung 
FÜR CIE a PLUS/a “NUN DISK- Dm 10,- 
ROULETTE 

Für alis, din das Miniko lieben.Mit Anl, 
FÜR C16+BaK-Ran a PLUS/A om 

75 BASIC-MAMMUT-PRG 
unaorkiert, aus allen Bersichen, Ohne 
Anleitung | nu DIEK- DM 20,— 
FÜR CI6+BAK-RAM & PLUS/a ® 
60 BASIC-PROGRAMME 

unsortiart, aus sllen ubrdichae ana 
Anleitung | 15K- 

FÜR Gı6 A PLus/a F 





- R.Grotjohann/Mille, Goethustr. 23 
4690 HERNE 1, Bast.: PunsS,-On/Bargeld- 
per £inschr. od.v-Scheck/Ausl.nur Euroc. 





292 YWAHNSINN®**C 16/+ 4 {C 
16 + 64 kj1328: Blocks, Disk- und 
Druckertools! 10,- DM an: 

Sebastian Kruck, 

Bonifatiussir. 5, 

3549 Volkmarsen, 

Tel.: 0 56 93/63 05! 

Es lohnt sich! 


©-16/Plus 4 PD-Software Verkaufe 
PD-Software auf Disk; 

nur ausgesuchte Progs., z. B. Hungaro- 
ring, Botticelly...usw, gegen 20,- DM 
Vorauskasse, 

Into zum Softwarepack u. weitere 
Angebote/Katalog gegen 1,10 DM 
Rückporto bei: 

A. Kellar, 

Drosselweg 25, 

7150 Backnang 


Der neue Printmaster Plus 4 ist 
tortiggestelit. 

Jetzt 70 Grafiken und 35 verschiedene 
Randmuster, eingebauter Datagenera- 
tor für alle Drucker mit seriellem 
Interface, 

Preis: 

25,- DM + Porto oder + 
Nachnahmegebühr, 

Alte Version noch erhältlich: 

Info von: 

Hermann Groß, 

Birkenweg 9, 

3042 Munster, 

Tel. 0 51 92/20 81. 
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Von 6-99 Jahre Micky Maus 


Denkspiele 
Geistesblitze 







Hoch- Der rg Star 
une er Welt 
spannung! 
E Lustig erzählt und 
ine echte Herausforde- i 1 
eurer mit vielen bunten 
rung für Rätselknacker, Bildern illustriert: 


5 Durchblicker ond Gehirn- 
" akrobaten! 
Die kniffligsten Knobeleien, 
Rechen-Rästel und Denk- 
sportaufgaben! Für deren 
Lösung brauchen Sie nichts 
als Ihren Verstand, Kombi- 
nationsgabe und die Fähig- 
keit, „ums Eck” zu denken, 
Wenn es zu schwer wird: Lö- 
sungen sind angegeben. 
Denksp (Frah Ve BR nDMesB0 4 
rüh. Verlagspr. ‚80): 
@ Rätsel und Spiele etzt korsalaıe ) 





die tollsten Aben- 
teuer von Micky 
Maus, Donald, Plu- 








Mond, gewinnt eine 
Autoralley... 

158 Seiten, durchge- 
hend Farbbilder, 
Format 28 x 21 cm, 














: DM 
® Zaubere nur DM 
® Streichholzspiele Best.-Nr. 80 Best. | A 80 
® Optische Täuschungen ® 380555 ® 





470015 














Holles Kunstgeschichte ® Malerei 


mit 1.000 Farbabbildungen ® Skulptur 
Von den Höhlenmalereien bis zu modernen ® Architektur & 
Gemälden, Skulpturen und Bauwerken: über 
1.000 Kunstwerke farbig abgebildet! 


Kunstgeschichte 
3 Bände, 776 Seiten, über 1.000 farbige Abbil- 


ön.den Anfängen 
iM : AN Klum dungen, Format 30 x 23cm, lederähnlicher Ein- 
NS ZULEGEN band, Goldprägung 

R- DM 156,-)* 

e 


2bändige Orig.-Aus 
: 9 Ss0 n 
. 


etzt 3 Bände komp 
Best.-Nr. Bar 


nur 
220400 

Ein einzigartiger 

Gesamrüber- 

blick über die N 

Kunst im Wan- 
del der Zeit, 

3 prächtige 
Bände; groß- 
formatig, 

Jarbig, 
preiswert, 








user eru Rnsıpuschonie> 


Ilusunas dmalsalpi ie 
Wusumnte Bunsagschichte 























Coupon zur sofortigen Anforderung 
Ja, bitte senden Sie mir per Rechnung mit 14 Tagen Rückgaberecht 
Titel Best.-Nr. 


Rezepte und Tips 
rund um die 
„tolle Knolle” 


Endlich ein großes 
Resppte ung, Tips farbiges Koc! buch 
ee ausschließlich rund 
um die Kartoffel. Tol- 
le bewährte und 
auch neue Rezepte 
zu Knödeln, Auf- 
läufen, Suppen, Sala- 
ten, Eintöpfen u.v.m. 
Zusätzlich enthalten: 
Eine gesunde Kartof- 
fel-Diät. 
144 Seiten, Rezepte, 
180 farbige Bilder, 
Format 28 x 21 cm, 


DM 930 
Best.-Nr. 183997 {) 





. Versandkostenanteil 





Vorname, Name 
Diesen Coupon 
bitte einsenden anı 
Tronic-Yerlag 

EB 35 

PLZ, Wohnort 3440 Eachwege 


Straße, Hausnummer 


Datum, Unterschrift 








Kassette & 
Diskette zum Heft 


Compuhe mir 


OPTELPEN 16 


2 


HELIX und AGENT 


Emerald Mine 


pragrammierung 







Sonderheft 2/87 (Fleft 6,50 DM) 
Best.-Nr, CSOK-2/2 Kassette 25, DM 
Best.-Nr. CSOD-2/2 Diskette 25,- DM 














Trace, Window Ass, Single File Backup, Menit- 
generator, Print, Little Painter, Maci, Mad 
Mamba, Megazone, Big Quest, Buchhaltung 16, 
Mad Maze, Mr. Laby, Solitaire 


Sonderheft 3/87 (Heft 6,50 DM) 

Best,-Nr. CSOK-3/2 Kassette 25, DM 
Best.-Nr. CSOD-3/2 Diskette 25,- DM 
Rocket Command, Flower-Power, WAR, Fang 
den Fioh, Grabsteindorf, China-Clan, Basic- 
Extension, C-16 Emulator, Disk-Start, Multi- 
Disk, Merge-Routine, Mastercopy 2, Basic- 
Find-Routine, Checksummer (Basic), MC- 
Checksummer, REM-INV-Maker 


Sonderheft 4/87 (Heft 6,50 DM) 
Best.-Nr. CSOK-4/2 Kassette 25, DM 
Best.-Nr. CSOD4/2 Diskette 25, DM 
MC-Checksummer, Merge, Window-Manager, 
Basic-Start, Move Frame, Checksummer, GET- 
SETREG, Musik-Demo, Musikus, Alldat, $uper 
Breakout, Mastergolf, Voracious Eater, Bank- 
überfall, Flottenmanöver, Speed-Ball 


























Sonderheft 1/88 (Heft 6,50 DM) 
Best.-Nr, CSOK-1/3 Kassette  25,- DM 
Best.-Nr. CSOD-1/3 Diskerte 25, DM 
Checksummer, MC-Checksummer, Sounddigi- 
tizer (Teil 1), Multi-Disk, WINDEF, Print- 
Timer, Soundmaster, File-Dump, AVP, Super- 
basic +4, Diamond Hunter, Dooly, U-Jäger, 
Crazy Factory, Das Weltspiel 














software- 
service 


Das sind unsere 
Sonderhefte 


für ©16/116/plus4! 














Sonderheft 2/88 (Heft 6,50 DM) 
Best.-Nr. CSOK-2/3 Kassette 25, DM 
Best.-Nr. CSOD-/3 Diskette 25,- DM 


Sonderheft 6/88 (Heft 6,50 DM) 
Best.-Nr. CSOK-6/3 Kassette 25,- DM 
Best.-Nr. CSOD-6/3 Diskerte 25,- DM 

























Cavebatdle, Ritter für den König, Grafikmaster, 
Hires-Lupe, Extended Grafik Mode, Turbo Cur- 
sor, Truck, Othello, Starpost, Mini-Geos, Ou- 
troll, Intermusik 


Checksummer, MC-Checksummer, Sounddigi- 
tizer (Teil2), NC$, Copy 64K, Jumping Bobby, 
Super Senso, Abenteuer im Land der Burgen, 
Basic-Compressor, PRO 7 




















Sonderheft 3/88 (Heft 6,50 DM) 
Best.-Nr. CSOK-3/3 Kassette 25,- DM 
Best.-Nr. CSOD-3/3 Diskette 25,- DM 


Checksummer, MC-Checksummer, Sound- 
digitizer (T' eb) Powerball, Death Planet, Solve 
Master, Trouble, Oil Hunter, Biorythmen, Ve- 
getarier, Diskduplicator, MC-Help 


Sonderheft 1/89 (Heft 6,50 DM) 
Best.-Nr. CSOK-1/4 Kasserte 30, DM 
Best.-Nr. CSOD-1/4 Diskette 30,- DM 



























Escape, Skat, Helix, Agent, Treck, Point-Test, 
Sereen-switcher, Type, Schraffieren 































Sonderheft 2/89 (Heft 6,50 DM) 
Best.-Nr. CSCK-2/4 Kassette 35, DM 
Best.-Nr. CSOD-2/4 Diskette 35,- DM 


Sonderheft 4/88 (Heft 6,50 DM} 
Best.-Nr. CSOK-4/3 Kassette 25,- DM 
Best.-Nr. CSOD-4/3 Diskeite 25, DM 


















Shooter, Brain-Tower, Jawbreaker, Text 80, Ap- 


Checksummer, MC-Checksummer, Fußball- Ä 
felberge 3D, Gitarre Plus 4, Macrotast, Referenz 
16 


Manager, Kikstart, Scramble, Fight in Space, Spe- 
cial FX, Laufschriftgenerator, Sampler, Funny 
Letter, Starzadressen-Lister, Terminal-programın 
























Bestellungen bitte an: 
Tronic-Verlag 
Postfach 870° 3440 Eschwege 
oder telefonisch: 

(0 56 51) 3 00 11 bis 18.30 Uhr 
Versand erfolgt per Nachnahme 
oder Vorkasse [Scheck, Bar) 


Sonderheft 5/88 (Heft 6,50 DM) 
Best.-Nr. CSOK-5/3 Kassette 25,- DM 
Best.-Nr. CSOD-5/3 Diskette 25,- DM 















Schnelle Sprites, Hilfreiche Routinen, Sereen- 
Compiler, Disk-Restauration, Drummaster, Ece- 
chece pour deux, Break out, Mensch, ärgere Dich 
nicht, Cross-Liner, Spacecat 
















Eine Bitte: Der Softwareversand ist ein Leserservice des Tronic-Verlags. Alle Anleitungen sind daher dem 
entsprechenden Heft zu entnehmen. Wollen Sie ältere Software, bestellen Sie bitte das Heft mit. Sollte es aus- 
verkauft sein, kopiert unser Versand gegen einen Unkostenbeitrag in Höhe des Heftpreises alle Anleitungen 
für Sie. Vermerken Sie bitte auf Ihrer Bestellung » + Heft «! 
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SOFTWARE-SERWIGE a 





Heft 5/87 

Commodore 

Bestell-Nr. COM CK 5/3 18,- DM 
Bestell-Nr, COM CD 5/3 20,-- DM 


Traffic Memory (VC 20), Shooter (VG 
20), Neuer Input (Gi6/118/plus 4), 
Superlist (C 16/118/plus 4}, Marbie (© 
18l116/plus 4.64 K), Character 
Generator (C 16/118/plus 4), Quadrato 
(6 64), FCMON Teil 2 (© 64), Minas 
Gundur (c 64), Fesispeicher (G 64) 


Heft 6/87 

Commodore 

Bestell-Nr. COM CK 6/3 16,- DM 
Bestell-Nr. COM CD 843 ‚„- DM 


Mountain Jack (VG 20, REM- 
Zeileninvertierer (VG 20}, Recovery (© 
16/116/plus 4), Airwolf (G 16), Turtle 
Grafik (C16/118/plus 4-64 K), Super 18 
(© 18/1 16/plus 4-64 K}, Chacksummer 
(© 64), Duell 2005 (G 64), DCMON Teil 
3 (C 84), Town Rescue (B 64) 


Schneider 

Bestall-Nr. COM SK 88 18,-- DM 
Bestell-Nr. COM SD 6/3 „- DM 
Break out, Luna $ (464), Autobak (464), 
Checksummer 


Heft 7/87 

Commodore 

Bestell-Nr. COM CK 713 16, DM 
Bestell-Nr. COM CD 748 20,— DM 


Bomb Scara (VC 20 + B.K), Elxanor (VG 
20), Checksummer (© 16), Checksum- 
mer (© 16-MC), Fight in the Dessert (C 
16), Tom and the Apple Farm (C 
18/1 16/plus 4}, Toolbox (© 18), Defense 
(© 16), Tapecopy (C 18), Aulostarter (G 
16), Monitorschutz {G 16), Nibbler (© 
84), Window (C 64), Psion 3 (G 64), 


Hungry Hoodelum (C 84) 

Schneller 

Bestell-Nr. COM SK 7/3 16,-- DM 
Bestell-Nr. COM SD 7/3 23,- DM 


Grenad 2.0 (484/664/6128}, Mini Brea- 
kout (464/864/6128), Firmjump (464), 
Nighttorce (464) 


Bestell-Nr. COM CK 8/3 18,- DM 
Bestell-Nr. COM CD 84 
2S-GEN VC OD + 3 K, 
(VG 20), Checksummer (MO, © 18), 
Turbo-Tape {C 16), Gosub mit Labalg 
(0 18/116/ +4), Admiral (G 16 + 54. RK), 
2S-GEN (© 64), RAID (GC 64), Zauber- 
wald (C 64) 


Schneider 

Bestell-Nr. COM SK 8/3 18,- DM 
Bestell-Nr. COM SD 8/3 23,- DM 
Diskmonitor (464), Orgel-Champ 


(46416646128), Buffalo Bill (464), Bliz- 
zard (464/864/6128) 


Heft 9/87 

Commodore 

Bestell-Nr. GOM CK 93 18,- DM 
Bestell-Nr, COM CD 914 20,- DM 


Tauziehen (VG 20), Handwerker (VO 20 

+ 3K), Plus Basic (C 18/1186), Invert 16 
(0 16116 +4), JMP (GC 181186/+4), 
MC-Checksummer (© 16), Bildmaker (C 
64), Fünf Wochen im Ballon (C 64) 


Schneider 
Bestell-Nr. COM SK 9/3 16,- DM 
Bestell-Nr, COM SD 93 23,— DM 


P.P.S. (446/664/6128), Prostar (464) 


Bestell-Nr. COM CK 10/3 18,- DM 
Bestell-Nr. COM CD 108 20, DM 
Fragezeichen VG 20+3 KK. MC- 
Checksummer (C 16), Games Basic (GC 
16/t16iplus 4), Ausweichmanöver (C 
16/1168/plus 4), Eierlaufen (016/116/ 
plus 4), Good Shot {G16/116/plus 4A), 
Checksummer (G 64), Laufschrift (C 64}, 
Floppy-Monitor {C 64), Blaster (GC 54) 


Amsbreak 1464/6648128), Screens 
(464), Create (464) 

Heit 11/87 

Sommodora 

Bestell-Nr. COM CK 11/3 16,- DM 


Besteil-Nr. COM CD 1144 20,- DM 
Wormy {VG 20), Kursiv-Creater (© 16), 
MC-Checksummer (C 16), Creaiure 
Castle (C 18/116/plus A), Alfred (C 
18/118/plus 4), Checksummer .(C 16), 
Time 64 (© 64), Last Mission (G 84), Vier 
in einer Reihe (C 64) 


Schneider 

Bestell-Nr. COM SK 149 186,- DM 
Bestell-Nr, COM SD 11/3 23,- DM 
Texter (464/664/6128), Burning Wheels 
(484/664/6128), Syndrome’s Message 
(464/664/6128), Quadrato (464/664/ 
6128), Chackaummer (OPC) 


Heft 12/97 


Gommodore 

Bestell-Nr. COM OK 12f3 16,- DM 
Bestell-Nr. COM CD 3244  20,- DM 
Alien Attack (VO 20), Super-Senso Ss 
20 + 3 K}), MC-Checksummer (5 18), 
Egon (G t6), Hunter (© 186), Basic- 
Bequem (G 16), Checksummer (G 64), 
Burgenstürmer (G 64}, Malibu (G 64) 


Schneider 

Bestell-Nr, GOM SK 12/3 19,- DM 
Bestell-Nr. GOM SD 12/79 23,- DM 
GENAD 2.1 (464/864/6128), Multlimode 
(464), Master Mission (48466416128), 
Fireball (464/664/6128) 


Haft 1/88 


Commodore 
Besiell-Nr. COM CK 1/4 18,- DM 


Checksummer {C 18}. pend (C 
18/116/+4), 15’er Puzzle (GC 16/1167 
+4), Invasion (© 18/116/+4), Quadris 
(© 16/118/+4), Directory-Help (C 64}, 
Auto-Start (© 64), Push II (C 64), Check- 
summer (C 84), Jac the Pac (C 84), 
Mission Germany {C 64) 


Schneider 
Bestell-Nr. COM SK #4 16,- DM 


Symbol Poker (484/664/6128), Hexkey 


464/68416128), Print Pictures(464 
6646128), Windfalt (464) 

Heft 2/88 

Sommodore 

Bestell-Nr. OOM CK 2/4 16,- DM 
Bestell-Nr. COM CD 2/4 20,- DM 


Game (C 64), Smash (C 64) 


Schneider 
Bestell-Nr. COM SK 24 16,- DM 
Bestell-Nr. COM SD 2/4 23,- DM 


Asteroids (484/664/6128) 

Heft 3/88 

Commodore 

Bestell-Nr, COM OK 3/4 10,- DM 
Bastell-Nr. COM CD &4 20,- DM 


Pixel-Grafik (VG 20), Pooyan (VO 20), 
Grafiklupe (C 18/116/plus 4), Farbta- 
stenbategung (© 16/11@plus 4), Firelab 
(GC 1871187 plus 4}, MC-GChecksummer (G 
16), G 64-Checksummer, Muititoolbox 
(C 64), Kursiv-Creatar (C 84), Copter- 
Duell (C 64), Mad Mission (C 64), Drei 





Drachentöter (C 64) 

Schneider 

Bestell-Nr. COM SK 34 19,- DM 
Bestell-Nr, GOM SD #4 23,— DM 
Fitemanager (464), Light-Gunner 
(464/864/6128) 

Heft 4/88 

Sommedore 

Bestell-Nr. COM CK 4/4 18,- DM 
Bestell-Nr, COM CD 4/4 20,- DM 


Shar-Befehl (C 18/11®/plus 4), Check- 
summer (C 16), MC-Checksummer (G 
18), Scorehunt (C 18/116/plus 4), 
Char-Menü (GC 84), Sky-Fighter (GC 64), 
Scoit (C 84) 


Schneider 
Bestell-Nr. COM SK 44 16,- DM 
Bestell-Nr. COM SD 4/4 29,- DM 


Laufschrift (464/664/6128), Trorı Tor- 
(op) (464/664/6128), Checksummer 


Haft 6/88 

Commodore 

Bestell-Nr. COM CK 5/4 18,- DM 
Bestell-Nr. COM CD 5/4 20,- DM 


MC-Checksummer (C 186), © 16 Schal- 
tor (C 16 + 64 K), Window-window (C 
18/116/+4), Starwars (C 16/116/+4), 
Char-Prin/Char-Basic (C 64), Kosmo- 
dram (C 64) 


Schneider 
Bestell-Nr, COM SK 8/4 16,- DM 
Bestell-Nr. COM SD 5/4 23,- DM 


Disketienverwaltung (464/8128), Trick 
ee (464/664/6128), Checksummer 


Hefl 6/88 

GSommeodore 

Bastell-Nr. COM CK 8/4 18,- DM 
Bestell-Nr. COM CD #4 20,- DM 


Char-Adress/Char-Rom (C 84), Hires- 
Mirror (C-16/116+64K/plus 4), Mister 
Stone (C 64), Krackout (G-18/116/plus 
4), Nightmare (C 64), Xelien (C- 
18/116/plus 4) 


Schneider 
Bestell-Nr, COM SK 6/4 18,- DM 
Bestell-Nr. COM SD 6/4 


6864/6128), Subcommand (464/664 
6128), Alien-Landing (464/864/6128) 
Haft 7/88 

Commodore 

Bestell-Nr. COM CK 7i4 18,- DM 
Bestell-Nr. COM CD 7/4 20,- DM 


Ghoskwriter (© 64), Ganymed (C 64), 
Speicherplatz (0 16), Basic-Sucher (C 
16), High Screen Polish (G 16), Hypra 
Load (C 18), Hacker Training (C 16) 


Schneider 4 
Bestell-Nr. COM SK 7/4 18,- DM 
Bestell-Nr. COM SD 7/4 23,- DM 


Tapecopy (464), The Expedition (464), 
Zurück in die Zukunft (464/664/6128), 


Checksummer (484/884/6128) 
Haflß/88 

Commodore 

Bestell-Nr. COM CK 8/4 16,- DM 
Bestell-Nr. COM CD 84 20,— DM 


Disk-Help (C-16), Sprachausgabe (C- 
64), Big Appla (C-16), Intruder (C-64), 
Sedam (C-16), Zonex (C-16) 


Schnetder 
Besteil-Nr. COM SK 8/4 16,- DM 
Bestell-Nr. COM SD 8/4 23,- DM 


Styla-Zeichengatz (CPG 484/664/6128), 
Bomb-Pac (CPC 464/664/6128), Check- 
summer (CPO 46448649128) 


Hefte und Programme Compute mit (Normalausgabe) 
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BEE SOF-UW/ARESSERWIGE 


Spitzenspiele zum Superpreis! 





C-64 


Superpaket 1 
Baller-Spiele 

Mission Code, Duell 2005, Intercep- 

ter Base, Space Odyssey, Raid 


CBK-1 20,- DM 
CBD-1 20,- DM 


Superpaket 2 

Strategie-Spiele 

Quadrato, 4 in einer Reihe, Mühle, 
. Joe, Rowiy, Psion 


CSK-1 20,- DM 
CS5D-1 20,- DM 


Superpaket 3 
Abenteuer-Spiele 


Stonsage Comic, Taxi-Driver, Biene 
Maya, Shila, Minas Gundur, 
Treasure-Hunt 


CAK-1 20,- DM 
CAD-1 20,- DM 


Superpaket 4 
Geschicklichkeits- 
Spiele 


Schotter, Space-TAXI, Haunted Inn, 
Turbo Racer 


| OGK-1 20,- DM 


CGD-1 20,- DM 








C-16/116/ +4 


Superpaket 1 
Baller-Spiele 

Good Shot, Hunter, Cosmic Terror, 
* Hyperspace 


OBK-1 20,- DM 
OBD-1 20,- DM 


Superpaket 2 
Geschicklichkeits- 
Spiele 


Grazy Worm, Panic, Frogger, Egon, 
Eierlauf, Ausweichmanöver, * Dan- 
ger Willi, Tom, Airwolf, McStoney 


OGK-1 20,- DM 
OGD-1 20,- DM 


'Superpaket 3 


Strategie-Spiele 


Cube, Supar Q-Bert, Schwimmen, 
Quadrato, Memory, * Admiral, 
i5ner Puzzle, Quadris 


OSK-1 20,- DM 
OSD-1 20,- DM 


Achtung!!! 


Die mit * gekennzeichneten 
Programme benötigen 
mindestens 32 K RAM 





Anleitungen zu unseren Programmen erhalten Sie aus unseren Hef- 


ten. Bei ausverkauften Heften erhalten Sie zum Heftpreis Fotoko- 


pien der Spielbeschreibungen. 
Hefte ohne Software nur gegen Vorkassel 
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Schneider CPC 


Superpaket 1 


. Baller-Spiele 


Smash It, Hero, Triton, Red Alert, 
Procon Delta, Double Trouble, 
Omeganea, Luna 9 (nur 464), Night 
Force {nur 464), Blizzard 


SBK-1 20,- DM 
SBD-1 20,- DM 


| Superpaket 2 


Geschicklichkeits- 
Spiele 

Pacman, Boing Boing, Master Miss- 
ion, Fireball, Breakout, Amsbreak, 


Orbit Chikane, Panik, Burning 
Wheels 


| SGK-2 ®20,- DM 


SGD-2 20,- DM 


Software service 


Der Tronic-Vertag bistet Spitzen- 
software für Jedermann. 
Überzeugen Sie sich von unseren 
Angeboten, und bestellen Sie noch 
heute. Alle Bestellungen werden 
innerhalb nur 


1 Woche 


nach Eingang bearbeitet. 
Telefonische Bestellung unter der 
Rufnummer 


0 56 51 /3 00 11 
bis 19.00 Uhr 
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SPIELE 








Großes Lexikorı der Mu- 
sik. 200 Komponisten mit 
über 1.000 Musikwerken. 
Dazu alles über Instrumen- 
te von A-Z. 

3Bd., zus. 736 Seiten, 28x 
22 cm, gebunden. 

(Früh. Verlagspr. DM 128,—)! 


Jetzt bei uns 
492 


nur DM 
5 ED 


Best.-Nr. 174114 
a 
F 





111 Geister. Leckere Liköre 


macht! 111 .„geistreiche” 
Ideen für gute Tropfen, aus 
Kräutern und Früchten. 

124 Seiten, genaue Re- 
zepte und Anleitungen, 


Farbfotos, geb. 
24: 
a 


Nur DM 
Best.-Nr. 182826 
P> Erfolgreiche Briefe, 
| “ 
Edgar Allan Poe: Gesam- Bu = 1 Vareige 
meita Werke. Die gesann | | Anregungen or enden. 
melten Schriften vom Mei- | | 46 Bor tratfende Re- 
ster schauriger Erzählun- Be unleichere Verträ- 
genund Wegbereiter ame- ge 
2 Bd., 750 Seiten, Abb., 


3 


x 


[4 


rikanischer Literatur. 
8Bd., zus. 1.908 Seiten, le- | 


derähnlicher Einband mit Fan u DM 78,—)° 

Goldprägung. Jetzt bei uns komplett 
6 Bis komplett ' | nur DM 980 
nur DM 

Besteht 3018502980 | | Best.Nr2705714 7 





Mythos der hohen Ma- 
sten. Faszinierende Bild- 
Dokumentation über die 
Welt der Segelschiffe. 

272 Seiten, farbig bebil- 
dert, 29x 21 cm, geb. 

Früh. Orig.-Ausg. DM 148,—)7 


Eugen Roth - — Das ge- 
samte heitere Werk. Die 
gesamten Lebensweis- 
heiten. liebenswerten Ge- 
dichte, Anekdoten... 

3 Bd., zus. 1.872 Seiten, 





Jetzt bei uns 19x 12 cm, geb. 80 
nur DM Kompl. nur DM 
Best.-Nr. 215 2,298 0 \ Best.-Nr. 12000539: 


"Fruherer Verlagspreis aufgehoben, jetz! erstmals in unserem Angebot. 



























und Schnäpse selbstge- . 






Knifflige Denkspiele 


Eine echte Herausforderung 
; für Rätselknacker: 
ER VELT”" wesen 1,000 Denkspiele! Für vie- 


‚ e reichen Papier, Bleistift 


\ 


'. sungen im Änhang. 


NZ es ER a | 


über 


und Sireichhölzer, Lö- 

200 Seiten, 1.000 Abbil- 

“ dungen, gebunden. 

‘ Nur DM 

\ Best.-Nr, 80 

260886 29: 
u re 


Mehr Erfolg durch besse- 
res Deutsch. Alles Wichti- 
ge über den sicheren Um- 
gang mit unserer Sprache. 
2 Bände, 444 Seiten, Illu- 
strationen, gebunden. 


297 


Kompl. nur DM 
Best.-Nr. 173851 
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ee > ge > 
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Der große Atlas des 
Weltalls. Die gigantische 
Dokumentation mit sen- 
sationellen Farbfotos. 


192 Seiten, Großformat 3B . 


x 27 cm, gebunden. 

{Früh. Orig.-Ausg, DM 168,—)! 
Jetzt bei uns 

nur DM 


Best.-Nr. 174 3,9980 


es00002000000008 . 
Logisch denken — leicht , 


gemacht. Schritt-für- 
Schritt zum Erfolg: mitüber 
200 Testfragen und Bei- 
spielen! Mit diesern syste- 
matischen „Denktraining" 


zählen Sie bald zu den ' 


Schnelldenkern! 

178 Seiten, gebunden. 
Nur DM 80 
Best.-Nr. 231550 162 
8000000800000 8 


werk Bermiar or 
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Der große Alpenführer, 
Das umfassende Stan- 
dardwerk. Mit über 400 
Farbfotos und mehr als 50 
Karten. Hier ist die gesam- 
te Bergwelt der Alpen bis 
auf den kleinsten Wander- 
weg beschrieben. Land- 
schaftsform, Klima, Flora 
und Fauna, Sehenswür- 
digkeiten, Geschichtliches 
u.v.m. 
2 Bände, 700 Seiten, Farb- 
fotos, 50 Karten, Format 19 
x 12 cm, gebunden. 

Jetzt bei uns als Sonder- 
ausgabe kompl. nos 


Bände nur DM 7930 


. Best.-Nr. 151327 
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a besondere Angebot für unsere treuen Leser 


Ihre Vorteile: 


® Kein Club, keine 
Mitgliedschaft. 

® Volle 14 Tage Rück- 
gaberecht. 

© Mit Riesen-Preis- 
vorteilen. 


® Lieferung bequem 
per Rechnung. 





Auf Traumstraßen durch 
Deutschland. Alles über 
Routen und Ziele. Mit 
prachtvollen Farbbildern. 
208 Seiten, 220 teils ganz- 
seitige Farbfotos, 25 Rou- 
ten, Großformat 30 x 24 
cm, gebunden. 


Nur DM 
Best.-Nr. 210663 2980 


Oma’s Koch- und 
Backbibliothek Die 
M besten Rezepte von 
Anno dazumalendlich 
komplett in diesen 20 
Bänden. 
20 Bände, über 6.500 
Rezepte auf mehr als 
3.200 Seiten, 19 x 11 
cm, kart., in Kass. 
20 Bände komplett 
Bur DM 
est.-Nr. 
183385 498 0 


efo]tlofo]aWAtlgete)gelatte Js WNulcelge Ietlıte) 
1 Ja, bitte senden Sie mir per Rechnung mit 14 Tagen 


|| Rückgaberecht: 

















zzgl. Versandkastenanteil 











Vorname, Name 


Diesen Coupon 
bitte einsenden an; 





Straße. Hausnummer 
5 


Pı.z Wohnort " 


Tronice-Verlag 
Stad 35 
3440 Eschwege 





Datum. Unterschrift ze 








Lange Winterabende _\ 
haben ihren Reiz ! 


Mit C-16 Spielen 
KINGSOFT 





Space Pilot 
Das packende Weltraumsplei! 
Bis zu 8 Mitspieler, Actlon-Klassiker. 
C16 Kass . 3504 

Disk. E ) 





34 nurDN 





Maniax 

Alarm in der Großstadt! Bringen 
Sie mit Ihrem Mantax wieder Licht 
in die nebelverhangene Groß- 
stadt. 

C16 (64 K), Plus/4 





Grafik Designer 

Entwarfen Sie mit diesem Super- 
Editor Ihren eigenen Zeichensatz. 
Music-Master 

Verwandelt Ihren Computer in 
einen Sequenzer und Synthosizer. 
Print Box 

Ein Mal- und Zeichenprogramm 
der Spitzenklasse mit vielfältigen 
Möglichkeiten, 

Alle 8 Programme zum Super- 
spärpreis!! 

© 18, Plusf 
x . 





Fire Galaxy 

Das aufreibende Weltraum-Spiel! Greifen 

Sie Ihre Feinde an und vernichten $ie 

diese. Nur so können Sie die Erde retten. 

© 16, Plus/4 

Kass. Best.-Nr. 3531 
isk. Best.-Nr. 3831 






DM 
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DM 
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Sextett 
Ein Powerpack der Extraklasse! Diese 
einzigartige Spielesammlung bietet 
Ihnen 6 phantastische Spiele zum Preis 
von einem. Allen Invasion, Jump Jet, 
Karate King, Out on a Limb, Strip Poker, 
Tarra Nova, 

© 16 (64. K}. Plus/4 


MICRO DATEI 
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run 

re 
Deren 
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Fortress Underground 

Ein Entdeckungssplel! In einer 

gigantischen, unterirdischen 

Höhle müssen Sie ein feindliches 

Kraftwerk aufspüren und vernich- 

ten. 

C16 Kass. Best 
Disk. Best 



















4 
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Emerald:Mine 
Ein Riesen-Arcade-Adventure mit 
vielen Leveln und 2-Spieler- 
Option. 

Flotte Grafik mit witzigen 
Mönster-Sprites. Toller Sound! 
cı18 se K}. Plus/4 





DM 
DM 


3510 





1a Ri %; ? N 
v. N - 2 
I r nie w Bif’s 2 
J T © | $ 
; f | * nd 4 
VE EEE EEE | EEE EEE EEE 0 WE TEEN nn un 


Ze N BEI 


ze 


ut 


Micra Datel E 
Universelte Datenverarbeitung für 

beliebiges Daten, z.B. Adressen, 
Schallplatten, Videos etc, 
Micro Kalk ji 
Tabellenkalkulationsprogramm 
für täglich anfallende Berechnun- 
gen. z.B. Führung einer Haus- 
haltskasse, Einkauf-/Verkauf- 
Erlös 

Micro-Text 

Leistungsstarkes Textverarbei- 
tungsprogramm zum Text ginge- 
ben, ändern, speichern etc. 

Alle 3 Programme zum $uper- 
ag 
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